$b=$b*36-48-7*/\D/+ord for pop=~/./g;
print$b,$/