perl -F// -ane'print+(map{($r*=36)+=/\d/?$_:-55+ord$_}@F)[-2]' #### echo 1Z|perl -F// -ane'print+(map{($r*=36)+=/\d/?$_:-55+ord$_}@F)[-2]' #### perl -F// -ane'print+(map{($r*=36)+=/\d/?$_:-55+ord}@F)[-2]'