Re: Numbers only in a string

[trammell]

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