if ($a =~ /[a-z]/) {
    print ord($a) - 96;
} else {
    print "Everything else";
}