if ($name =~ /^[a-z]+$/i) { print "only alphas" }