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