Based on something i saw Abigail do on c.l.p.m, this one's quite tricky to follow. At least for me...

$$=[split//,"utaohrPr akr\nechle etn sJ"];
$;=sub{print pop@{$$};$$=[reverse@{$$}];$;;};
$_='$;->'.join('->',(q(()))x24);
eval;
[download]