in reply to The Perl Review
I wasn't going to post this since it uses a module but I guess that someone should.
sub base36 { #23456789_123456789_12345 (25) use POSIX;0+strtol+pop,36 } [download]
-- John.