y/g-z/0-9/,print chr($_y+=-84+hex)for"penflillggpl
mhlllpkolhmhgiokmpmhkegopckdlmlckemhgeji"=~/\w./g;