#!/usr/bin/perl -w

my $a = "aBcdeFG";

if ($a =~ /[A-Za-z]/) {   # No i modifier needed
    print "Alphabet\n";
}
elsif ($a =~ /\d/) {     # \d matches 0-9 only
    print "Numeric\n";
}
else {
 	print "Non-numeric, non-alphabet\n";
}