in reply to finite automata
if ($string =~ /^[a-z]+$/) { print "Valid\n"; } else { print "Invalid\n"; } [download]
Cheers, Paul