http://www.perlmonks.org?node_id=142821


in reply to Re (tilly) 2: Fore!!! (was The Perl Review)
in thread The Perl Review

The y/// is very sneaky, but why play games with that $s? If you want a 0, see if one of $% $- $? or $[ work for you. Here it is shortened to 43 chars and as an added bonus, its now strict compatible.
# 1 2 3 4 #23456789_123456789_123456789_123456789_1234 $_=pop;y/A-Z/:-T/;$?=36*$?-48+ord for/./g;$?

-Blake