#!/usr/bin/perl 

$dest = "555/333-1111";

$dest =~ s/[^0-9]//g; 

print $dest;

exit;