if($string =~ /^[a-zA-Z]$/) # can also be written as /^[a-z]$/i
{
   print "Alphabet\n";
}
elsif($string =~ /^\d+$/)
{
   print "Number\n";
}
else
{
   print "Other\n";
}