#!/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;