#encode(aiueo)
perl -e '$n=shift;@k=split("","aiueo");while($n > 0)
{$r=$n%5;$n=int($n/5);print$k[$r]};print"\n"' 200607011
#decode(aiueo)
perl -e '%h=("a"=>0,"i"=>1,"u"=>2,"e"=>3,"o"=>4);$n=shift;
for(reverse split("",$n)){$sum*=5;$sum+=$h{$_}};print"$sum\n"' iuaiioeueuao
#encode(16)
% perl -e 'printf "%x\n", shift' 20060711
1321a27
#decode(16)
% perl -e 'print hex(shift)."\n"' 1321a27
20060711
#encode(8)
% perl -e 'printf "%o\n", shift' 20060711
114415047
#decode(8)
% perl -e 'print oct(shift)."\n"' 114415047
20060711



