Even though this isn't /really/ obfuscated i'm sure it will produce output that a lot of you arn't expecting, i don't know where else i would post this. It's an interesting easter egg none the less.
perl -e 'print grep(/X-[^Powered]/, `HEAD www.slashdot.org`)'
NOTE: This requires a *nix o/s and the "HEAD" program to be installed,

Neil Archibald
- /dev/IT -

Replies are listed 'Best First'.
Re: Futurama
by Mr. Muskrat (Canon) on Sep 05, 2003 at 18:47 UTC

    LOL!

    perl -e 'print+(split"-",(grep(/X-(?!Powered)/,`HEAD www.slashdot.org`))[0],2)[1]'

    Added: This version works with AS Perl!
    perl -e "print+(split'-',(grep(/X-(?!Powered)/, `HEAD www.slashdot.org`))[0],2)[1]"

    Updated: made correction suggested by diotalevi

Re: Futurama
by diotalevi (Canon) on Sep 05, 2003 at 18:54 UTC

    I'm quite certain you meant to write (?!Powered) instead of [^Powered]. The difference is that (?!Powered) asserts that the next bit isn't the string 'Powered' while [^Powered] matches any single character that is not one of 'Pdeorw' (sorted). Your net regex is more like /^X-(P|d|e|o|r|w)/ than anything else (except that using a character class is nicer). Got it?

      Ahh yes, good point, Thanks for your post :)

      Neil Archibald
      - /dev/IT -
Re: Futurama
by deliria (Chaplain) on Sep 06, 2003 at 11:18 UTC
    Excellent, a good laugh :)