my $s = '1-(800)-223-5555'; (my $n = $s) =~ y/0-9//cd;