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


in reply to The Perl Review

Here was my final submission, from a beginner ... 71

map{$t+=(ord()-(/\d/?48:55))*36**$l++}reverse split//,shift;print"$t\n"

If I took out the final ;print"$t\n", that would take it down to 59. Cool to use pop vs. shift ... shave off 2 more strokes. I'll have to remember that for the next round. :)

Jason