if ($ARGV[0] !~ /(.).*(??{print "Searching for [^$1-z] starting at ",pos($ARGV[0]),"\n"; "[^$1-z]"})/ix)