$_='nflillggplmhlllpkolhmhgiokmpmhkegopckdlmlcke
mhgejipe';tr/g-p/0-9/;my@x=map-84+hex,/\w./gi;my
@y=pop@x;push@y,$_+$y[-1]for@x;print map{chr}@y;