Maybe I should have posted it in the obfuscation section, but this code could be understood by anyone who has read halfway through Learning Perl...

Since palindroms were first literary tricks, I felt that this piece of code should feel more at home here

Anyway, here's my palyndromic program (I know there's a specific word for it, but BooK knows better)

#!/usr/bin/perl  
@a=<DATA>; for(@a
){$_ = reverse;tr
;{<}>();}>{<)(;};
print reverse @a;
__DATA__          
         __ATAD__
;a@ esrever tnirp
;{;)(>}<{;()<{>};
rt;esrever = _$}(
a@)rof ;<ATAD>=a@
  lrep/nib/rsu/!#
[download]

Update: Prettified the layout