perl -lnE'unpack("%a*")-65-96*length||say'