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

##</code><code>##

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