use strict;

my $test1 = "abcd";

print "Testing: $test1\n";
print "Passed #1\n" if ($test1 =~ /[A-Za-z]/);
print "Passed #2\n" if ($test1 =~ /^([A-Za-z])*$/);


$test1 = "abcd1234";

print "\nTesting: $test1\n";
print "Passed #1\n" if ($test1 =~ /[A-Za-z]/);
print "Passed #2\n" if ($test1 =~ /^([A-Za-z])*$/);


# output
__DATA__
Testing: abcd
Passed #1
Passed #2

Testing: abcd1234
Passed #1