in reply to Alpha base-26 to base-10...

How about:

..And then...use Math::BaseCalc;

CPAN is a beautiful thing. FWIW, there is a bug in your base numbers. In a base-26 set "A" == 0, "B" == 1, etc. TTYLmy $base_26 = Math::BaseCalc->new(digits=>['A'..'Z']); print "Enter a value: "; while (<>) { chomp; print $base_26->from_base($_)."\n"; print "Enter a value: "; }

In Section
Seekers of Perl Wisdom