in reply to !@#$%^&*

Huh. Just when I think I have a glimpse of the workings of Perl, I find this. Anyone care to point out what makes this one tick?

Replies are listed 'Best First'.
(SPOILER) - Re: Re: !@#$%^&*
by myocom (Deacon) on Jan 25, 2001 at 22:28 UTC

    This one's fairly simple, actually. There are really only two parts: An assignment to $_ and a back-tick running of $_.

    If you break down the first statement, you'll see it's two strings XOR'd together:

    $_ = '%#(/@*(((@!./((%)@+%),@(!#+%)@#/.' # The encrypted string ^ # XOR '@@@@``][\`@@@\@@[`{@[@`@@@@@[~@@@' # The secret decoder ring

    So this ends up assigning 'echo Just another Perl hacker>con' to $_. The second line, `$_` simply passes that to the shell and runs it, which will work fine on any Win32 system.

      Thanks for the help!