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