perl -e 'print map chop, sort split shift, reverse shift ' 'j_' 'e._jP;_jr/_je=3D_jk{_jn*_j &_j :_j @_jr}_ja)_js$_j ~_jh]_jt,_jo+_jJ"_jr>_ju#_jt%_jl?_ja^_jc`_jh-_je|' -rjk-
I actually executed this (more fool me, not knowing what the hell it did). What I find very interesting is that it printed: Just another Prl ehacker
The problem is that 'quoted printable' thing again; an '=' got converted to '=3D'. Upon removing the 3D, it prints: Just another Perl hacker
How's that for a resilient language! (my guess is it turned up in a regex and the regex just didn't match, but I can't be bothered to read that code).
Incidentally, my $.02 on the write-only language bit; this is how I'd write the above, and I think many people would agree this bit o' Perl is a clear, well structured and elegant solution to the problem: perl -e 'print "Just another Perl hacker\n"'
Show me a language clearer than that...
Alexis (taking all the fun out of Perl-baiting)