Or something similar, designed to drive lispers insane with its carefully imbalanced parens:

(print (join (q) ),
       (map sprintf (reverse (split (q)),
                 (substr $_, 1)))),

(sort (qw)
      jlianregnif ksgnippilc yyrraL zllaW aPSIL
      flaeppa bsah m.ni clla ldexim  ssti
      tetiuq prehtO w.egaugnal vecin qnaht r,taht
      ua hlaemtao gfo deht elausiv ihtiw x--)

))))))
[download]