Select Code to Download

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