if ($name !~ /[^a-z]/i) { print "no non-alphas" }