31進数で出力する必要があるらしいので... http://search.cpan.org/perldoc?Math%3A%3ABaseCalc #!/usr/local/bin/perl use strict; use utf8; use Math::BaseCalc; main(); sub main { my $base_31 = Math::BaseCalc->new(digits=>[0..9,'A'..'U']); print …