Select Code to Download

$_='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;