http://www.perlmonks.org?node_id=199238

This is my first obfuscation that I even consider halfway decent, and it happens to be a JAPH:
print@={ sort%==q=qr!J& $s[l?P^h%t:r] @e(afk)nOrbadc/oge; } #u0t4h8ex,==~m"\C|0xaf3d!until$a+=$b; # secret key: "g}#Z~"
Update: Made a tiny change so now it even runs with  use strict.

-- Mike

--
just,my${.02}

Replies are listed 'Best First'.
Re: Just another JAPH
by kelan (Deacon) on Sep 19, 2002 at 20:39 UTC
    Wow, this was a good one. I stared at it blankly for 10 minutes before deciding to whip out the ol' -MO=Deparse. thelenm++

    Spoiler below...