HI all, hope you like this:

eval($_=q%@_=(split(//,"\nperl.hackerrehtona.tsuj"),"\ec");$z='($#_>11
+?(
$/,$"x$#_,"."x(48-2*($#_+1))):("\r",$"x12,"."x(22-2*(11-$#_))),pop@_)'
+;$
b='$#_>11?pop@_:shift@_';s#b#m#;s#z#b#;select$q,$q,$q,(eval'$|=print'.
+$z
)/9while@_;s#m#z#;$a=chr(37);print$/x2,$_='eval($_=q'.$a.$_.$a.')'.$/%
+)
[download]

also run the generated code.
al