#!/usr/bin/perl -w

my $a = "aBcdeFG";

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