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


in reply to simple question

print $str =~ /\D+/g;

[download]

In Section Seekers of Perl Wisdom