A Simple JAPH

[Athanasius]

My first effort:

$_='penflillggplmhlllpkolhmhgiokmpmhkegopckdlmlckemhge';
tr/g-p/0-9/;my@x=map{-84+hex$_}$_=~/[A-F0-9]{2}/gi;my@y=
shift@x;push@y,$_+$y[-1]for@x;print join'',map{chr$_}@y;

“...an ill-favoured thing, sir, but mine own.” —As You Like It (Act 5, Scene 4)

Regards,

[ambrus]

This obfu is nice because it's hard to see at first what it will print. Allow me a few minor comments though. (I'll use spoiler tags to not spoil anything for readers who hasn't decoded the obfu yet.)

<Reveal this spoiler or all spoilers in this node or all in this thread>

Let me list some specific good points of this obfu too.

<Reveal this spoiler>

[Athanasius]

Wow! Thank-you ambrus for such detailed feedback.

Taking (most of) your comments on board, the JAPH now looks like this:

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

I should have mentioned an additional requirement I imposed on myself: the code runs clean under use strict;and use warnings;

This is fun!

Regards,