Select Code to Download

$_='penflillggplmhlllpkolhmhgiokmpmhkegopckdlmlck'
.'emhgeji';y,g-p,0-9,;my@x=map{-84+hex}m;\w.;g;my@
y=shift@x;push@y,$_+$y[-1]for@x;print(map{chr}@y);