in reply to simple question

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

[download]

In Section Seekers of Perl Wisdom