Remember, newlines within substitutions/matches that are modified by /x are ignored. Take out your '\n's and the de-obfuscated code "does the right thing", namely the last substitution finds a match, evaluates the substitution expression, which is an eval instruction which in turn evaluates the string "eval", contained by that time in $_, which leads to endless recursion.
MeowChow print $/='"',(`$^X\144oc $^X\146aq1`)[-2]
In reply to Re: Re: Revisionism, Perl-Style
by MeowChow
in thread Revisionism, Perl-Style
by MeowChow
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |