#!/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";
}

##</code><code>##

sub IsNumeric {
    my $val = shift;
    if ( defined $val ) {
        return $val =~ /^\d+$/ ? 1 : 0;
    } else {
        warn "IsNumeric requires an argument!";
    }
}