http://qs321.pair.com?node_id=913163


in reply to Re^4: php to perl

Very easily. 
$foo  = "My number is 123456";
$num = $foo;
$num =~ s/(\W|\D)//g;

print $num;

[download]

In Section Seekers of Perl Wisdom