print 'non digits found' if $str =~ /\D/;