obfuscated beth <code> #!/usr/bin/perl -l (print (join (" ", (map {sprintf (reverse (split (//, (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--))))))) </code>