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;