##
$_='first part
second part'
##
##
$_='nflillggplmhlllpkolhmhgiokmpmhkegopckdlmlcke
mhgejipe';tr/g-p/0-9/;my@x=map-84+hex,/\w./gi;my
@y=pop@x;push@y,$_+$y[-1]for@x;print map{chr}@y;
##
##
y/g-z/0-9/,print chr($_y+=-84+hex)for"penflillggpl
mhlllpkolhmhgiokmpmhkegopckdlmlckemhgeji"=~/\w./g;