$_='first part'. 'second part' #### $_='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;