Like jima, I have also written a symmetrical Perl script inspired by the C program at http://cpcug.org/user/jelks/misc/geek/palindrome_c.html. (I was more impressed with mine before I saw jima's. :)

Instead of a JAPH, I duplicated the output of the C script. I also avoided the use of comments, but used other tricks instead.

#!/usr/bin/perl -- -- lrep\nib\rsu\!#
 
                  s
                 (^)
              ~\xfffx/~
 , $ tnirp = $_ , q , _$ = print $ ,
                  ;
                  s
                <.*.>
     "Able was I ere I saw elbA"
               .m!.!m.
              rof ; for
             (;s{} {}s;)
       { print $ & & $ tnirp }
         print $ /;\ $ tnirp
 
          __END__   __DNE__
[download]

Note that the Perl code is much shorter than the C code. :D