in reply to Numbers only in a string
my $s = '1-(800)-223-5555'; (my $n = $s) =~ y/0-9//cd; [download]