my $char = 'A';
my $num  = -64 + ord uc $char;
[download]

Won't work for EBCDIC, but I'm guessing that's not a widespread problem :)
--
Mike