if $str =~ /\D/ { print "non-digit" }