use Math::BaseCalc;
[download]

my $base_26 = Math::BaseCalc->new(digits=>['A'..'Z']);
print "Enter a value: ";
while (<>) {
  chomp;
  print $base_26->from_base($_)."\n";
  print "Enter a value: ";
}
[download]

PerlMonks lovingly hand-crafted by Tim Vroom.
PerlMonks went on a couple dates, and then decided to shack up with The Perl Foundation.
Speedy Servers and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.