Re^2: A Simple JAPH

[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,