Some amazing Regex with Perl -->

[deadserious]

#!/usr/bin/perl
#Grum_ <[email protected]>

$:=$@='`';$_=$;=$@|'#';$^=$:|'/';++$;;$~=$@|'(';$,=$@|='!';$,.=+$:|'.'.$^;$.++;
$_=+++$;."$_$~".$^++.$";$;=$~.$;;$@++;++$^;$_.=+'@'|'+'&~'!';$^++;$=+'@'|':'&~
'*';$;.=$^++;$/="$"$\&";$=+'@'|'?'&~'(';++$.;$/.="$$"";$=+"$:$:$:"|'!$$'
.++$~.++$@;$@=$^++.$^;$:=$^++;`$_$^$@$"$,$:$;$/$$:.>&$.`;

From the command line:

[ds@s2 ds]$ chmod +x ownz.pl
[ds@s2 ds]$ ./ownz.pl
Just another P&W addict.

Any one care to try it?

Found this code on the Xnull forums about a year or so ago and I've always thought it was pretty amazing. LOL wish I could do that.

 

[deadserious]

So I guess maybe that isn't officialy a regex or regular expression.

Just a bunch of default or built in Perl variables.

Actually I think it's more like a combinationg of built in Perl variables and regular expressions.

 

[deadserious]

Okay so I've learned that code doesn't really use default perl variables or regular expressions, lol it's just some kind of trick that I couldn't explain. :D

I still think it's pretty cool though.