in reply to Numbers only in a string

Another job for tr: 
$phone =~ tr/0-9//dc;

[download]
[oops, didn't see trammell's reply when I posted this redundant one]
Caution: Contents may have been coded under pressure.

In Section Seekers of Perl Wisdom