The CGI bit comes from matching the '3"; ' ^ (per);. I especially liked the first $g or die, took me a while to realise the whole thing was a match starting with the $ on line 4.($^X ) = ($^X ) =~ m/^ |perl|;/g; @XX = '3"; ' ^ (per); ($^X ) =~ s/[perl]{4}/@XX/; print("$^X\n");
In reply to Re: japhy's 2nd obfuscation review
by tlhf
in thread japhy's 2nd obfuscation review
by japhy
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |