With inspiration from Chady's obfuscation:

$_ = "
  ###################

      H  P  A  J
      a  e  n  u
      c  r  o  s
      k  l  t  t
      e     h
      r     e
            r

  ###################
  ";

@$=split m|$/|;@$=map{$*=[map
{$-+=!$*;ord}split//]}splice(
@$,$/=log ord$//2,-$/);print+
grep{(ord&&(${$}=${_}))[(${$}
eq${_})]}reverse map{$}++;$==
!$=+$-;map{chr(@$->[$=--][$}]
)}@$}@{@$->[$}]}; print "\n";
[download]