http://www.perlmonks.org?node_id=45014

I've been lurking around here for about a month now and i've seen quite a few 'first tries' for JAPH's. So this morning instead of sleeping, I decided I would give it a shot. Here is the one I finally ended up on.
split q$$,qq!ecHle etn sJutAohrPr akr\n! ;print $_[11],map{@_[11+$_,11-$_]}1..12;
Comments? Suggestions? All appreciated!
- Brad