!perl -n
$n+=(/\d/?$_:-55+ord)*36**$i++for reverse/./g;print$n