Silly JAPH

[Darkling]

Yes I know, it's a bit silly. Amusing though (but perhaps only to my warped sense of humour).

#!/usr/bin/perl

$_="ahe2h2f2gadcajh2a5g
1ae1a3eadc2c1a3e1aiadc1
aeajhajj1ah1a3eadd";s"
""g;s;(\d);1x$1;eg;s
+(\D)+ord($1)-97+eg;
s%(\d\d\d)%chr($1)
%eg;print;