perl -e '$s="aaa";for $i (1..28) { ++$s }; print $s;'

##</code><code>##

perl -e 'use Math::BaseCalc;$c = new Math::BaseCalc(digits => [a..z]
);print $c->from_base("abc");