#!/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__