(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--)

))))))