This isn't all that obfuscated, but it boggles the mind a bit more once you understand what's happening. Try figuring out exactly why, then please explain it to me. ;-) 
#!/usr/bin/perl
$z = int(rand(1000)+1); $y = 'reverse ' x $z;
eval eval qq{$y "@{['\"n\\\\.rekcaH','lreP','rehtonA','tsuJ\"','tnirp'
+]}"}

[download]
Chris

Replies are listed 'Best First'.
Re: My first JAPH
by japhy (Canon) on May 31, 2001 at 08:51 UTC
    Oooooooh. Clever trickery. You're getting a ++ from me for this one. The outermost reverse() is done in scalar context, due to the eval(), and all other reverse()s are reversing a one-element list. Nice one.

    japhy -- Perl and Regex Hacker
[reply]

Back to Obfuscated Code