my $match = '\D';
print "non digits found\n" if $str =~ $match;