#!/usr/bin/perl -w
my $a = "aBcdeFG";

if ($a =~ /^[a-z]+$/i) {
    print "Alphabet\n";
} elsif ($a =~ /^\d+$/ ) {
    print "Numeric\n";
} else {
    print "Neither\n";
}