perl -lne'65+length()*96-unpack"%a*",lc or print'