if ($string =~ /^[a-z]+$/) {
    print "Valid\n";
} else {
    print "Invalid\n";
}