A segment of perl code (usually a regex of some sort, sometimes not) that looks all for the work like the extended ascii symbols you get in your term program when you wiggle the phone plug. Happy lines like:

~ /(^\d{5}$)|(^\d{9}$)/;
...that could be confused for 31337 hax0r talk, or typical Wall-esque hillarity like
@a=(Lbzjoftt,Inqbujfodf, Hvcsjt); $b="Lbssz Wbmm" ;$b =~ y/b-z/a-z/ ; $c = " Tif ". @a ." hsfbu wj" ."suvft pg b qsphsbnnfs" . ":\n";$c =~y/b-y/a-z/; print"\n\n$c ";for($i=0; $i<@a; $i++) { $a[$i] =~ y/b-y/a-z/;if($a[$i]eq$a [-1]){print"and $a[$i]." ;}else{ print"$a[i], "; }}print"\n\t\t--$b\n\n";
...that will give you permenent headaches. It is code that only makes sense if you know what it's output is supposed to be. Not always obfuscated, sometimes just more efficient.

Naw, I'm kidding. It's always Obfuscated. Proof that Perl = Line Noise.

Log in or register to write something here or to contact authors.