36 perl -nE'65+length()*96-unpack"%a*",lc or say'