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: "; }