This is my first (intentional) obfuscation, and possibly my last. My thanks to converter for the idea.

$_=" u,teacohhlreP re tank rs\nJ";
@a=($_,$a=reverse($_));
print chop(@a=@a),chop(@a)for A..M;
[download]

UPDATE
I am adding a spoiler for the lazy^Wcurious...

The key idea is from this post. The odd characters are read in reverse, the even straight through.