http://www.perlmonks.org?node_id=31559

This isn't really that obfuscated. This is my first time writing obfuscated code... in any language. You might say this is more of a translation than a obfuscation, but I don't think it can be parsed with a two line regexp. :-)
Mostly this is for all you slackers to enjoy. ;-)
UPDATE: Fine, so it can be parsed with a simple regexp. I told you I've never done this before. :-P
UPDATE++;Yeesh. You guys really don't like this. I thought there'd by more SubGenii here.

~W
#!/usr/bin/perl push @a,(39,2,5,1,0,6,4,0,6,3,4,2,1,4,14,2,19,6,6,0,1,4,14,23); push @a,(7,3,4,2,0,6,4,1,0,6,4,2,5,3,4,2,0,4,14,0,4,1,12,0); push @a,(0,6,6,27,0,4,14,0,1,1,12,0,0,3,4,0,1,1,12,0,1,3,4,2); push @a,(0,1,12,0,0,3,4,0,0,1,12,0,0,3,4,0,0,1,12,0,0,3,4,0); push @a,(0,1,12,0,0,3,13,0,1,1,12,0,0,6,6,0,0,4,14,0,5,3,4,0); push @a,(0,6,4,1,0,6,4,0,4,3,4,0,11,1,12,0,0,6,6,0,0,1,12,0); push @a,(1,6,6,0,0,1,12,0,0,6,6,0,0,3,13,0,9,1,12,0,4,3,4,0); push @a,(0,6,4,1,0,6,4,0,3,3,4,0,0,2,-1,0,17,1,12,0,0,2,-1,0); push @a,(1,1,12,0,0,5,-5,0,0,2,4,0,0,6,-1,0,0,3,4,0,0,3,0,0); push @a,(3,1,12,0,3,3,4,0,0,6,4,1,0,6,4,0,3,3,4,0,4,1,12,0); push @a,(7,3,4,0,0,6,-1,0,2,5,-5,0,0,2,4,0,0,6,-1,0,7,3,4,0); push @a,(1,1,12,0,0,3,4,0,1,1,12,0,2,3,4,0,0,6,4,1,0,6,4,0); push @a,(3,3,4,0,4,1,12,0,21,3,4,0,1,1,12,0,0,3,13,0,1,1,12,0); push @a,(2,3,4,0,0,6,4,1,0,6,4,0,3,3,4,0,4,1,12,0,19,3,4,0); push @a,(0,2,2,0,0,3,4,0,0,4,11,0,0,1,12,0,0,5,5,0,1,1,12,0); push @a,(2,3,4,0,0,6,4,1,0,6,4,0,3,3,4,0,4,1,12,0,19,3,4,0); push @a,(0,4,11,0,0,4,13,0,0,4,11,0,0,1,12,0,0,6,4,0,0,1,12,0); push @a,(0,4,13,0,2,3,4,0,0,6,4,1,0,6,4,0,3,3,4,0,4,1,12,0); push @a,(0,6,6,0,0,5,-5,0,1,2,4,0,0,5,-5,0,0,1,12,0,0,6,6,0); push @a,(6,3,4,0,0,6,6,0,0,1,12,0,3,5,-5,0,0,6,6,0,0,1,12,0); push @a,(0,3,4,0,3,1,12,0,2,3,4,0,0,6,4,1,0,6,4,0,3,3,4,0,3); push @a,(1,12,0,0,5,-5,0,0,6,6,0,0,1,12,0,0,2,4,0,1,1,12,0,0); push @a,(2,4,0,1,1,12,0,0,5,-4,0,2,3,4,0,0,6,6,0,1,1,12,0,0,5); push @a,(-5,0,1,1,12,0,0,5,-5,0,0,5,-4,0,0,3,4,0,0,1,12,0,0,4); push @a,(13,0,0,3,16,0,1,1,12,0,0,3,14,0,2,3,4,0,0,6,4,1,0,6,4); push @a,(0,3,3,4,0,1,1,12,0,0,2,4,0,0,1,12,0,1,3,4,0,0,6,-1,0,0); push @a,(3,4,0,1,6,-1,0,0,2,3,0,2,1,12,0,2,3,4,0,1,6,-1,0,1,5,-4); push @a,(0,1,2,4,0,0,3,4,0,0,6,-1,0,0,3,4,0,0,1,12,0,0,4,13,0,0); push @a,(4,11,0,1,1,12,0,3,3,4,0,0,6,4,1,0,6,4,0,3,3,4,0,0,2,4,0); push @a,(1,1,12,0,3,3,4,0,2,6,-1,0,2,3,4,0,0,1,12,0,6,3,4,0,1,6); push @a,(-1,0,4,3,4,0,0,4,11,0,1,1,12,0,3,3,4,0,0,6,4,1,0,6,4,0); push @a,(4,3,4,0,0,5,-5,0,1,6,4,0,0,1,12,0,5,3,4,0,0,4,0,0,0,2,-1); push @a,(0,0,1,12,0,1,3,4,0,0,4,0,0,10,3,4,0,0,4,11,0,0,6,4,0,0); push @a,(5,-1,0,3,3,4,0,0,6,4,1,0,6,4,0,5,3,4,0,0,6,-1,0,0,6,4,0); push @a,(0,1,12,0,0,2,-1,0,1,3,4,0,0,4,0,0,0,6,6,0,1,1,12,0,0,4,0); push @a,(0,0,4,13,0,2,3,4,0,0,2,5,0,0,6,6,0,0,2,4,0,0,1,12,0,0,6); push @a,(6,0,0,4,9,0,1,3,4,0,0,4,14,0,0,2,-1,0,0,4,13,0,0,2,4,0); push @a,(5,3,4,0,0,6,4,1,0,6,4,0,6,3,4,0,0,4,11,0,2,1,12,0,0,5); push @a,(-5,0,7,1,12,0,0,5,-5,0,0,3,14,0,1,3,4,0,0,4,4,0,0,5,7,0); push @a,(4,1,12,0,1,4,13,0,5,3,4,0,0,6,4,1,0,6,4,0,7,3,4,0,0,2,4); push @a,(0,0,3,4,0,0,1,12,0,1,3,4,0,0,2,4,0,0,1,12,0,0,5,-1,0,6,2); push @a,(4,0,0,6,1,0,0,1,12,0,0,2,4,0,0,6,-1,0,1,3,4,0,0,4,11,0); push @a,(0,1,12,0,0,2,4,0,6,3,4,0,0,6,4,1,0,6,4,0,8,3,4,0,0,1,12); push @a,(0,0,5,5,0,0,1,12,0,0,3,4,0,0,6,-1,0,2,1,12,0,3,3,1,0,1,2); push @a,(5,0,0,5,-5,0,4,3,4,0,1,1,12,0,7,3,4,0,0,6,4,1,0,6,4,0,9); push @a,(3,4,0,0,5,-4,0,0,2,4,0,0,4,0,0,0,6,6,0,0,1,12,0,0,5,-5,); push @a,(0,0,1,12,0,0,6,6,0,3,4,14,0,0,4,9,0,4,3,4,0,1,1,12,0,8); push @a,(3,4,0,0,6,4,1,0,6,4,0,3,3,4,0,1,4,14,0,0,3,1,0,0,4,14); push @a,(0,1,3,4,0,0,4,14,0,2,1,12,0,0,4,14,0,0,2,-1,0,0,1,12); push @a,(0,0,2,4,0,1,6,-1,0,0,2,4,0,0,6,-1,0,4,3,4,0,0,1,12,0,0); push @a,(5,-5,0,9,3,4,0,0,6,4,1,0,6,4,0,2,3,4,0,0,5,-5,0,0,6,0); push @a,(0,0,3,14,0,0,6,6,0,0,1,12,0,0,6,6,0,2,1,12,0,0,2,4,0,3,1); push @a,(12,0,6,3,4,0,0,4,0,0,0,6,6,0,0,5,-5,0,11,3,4,0,0,6,4,1,0); push @a,(6,4,0,1,3,4,0,2,1,12,0,0,3,4,0,0,2,4,0,2,1,12,0,0,2,4,0); push @a,(2,3,4,0,0,2,4,0,4,5,-5,0,2,1,12,0,0,5,-5,0,0,2,4,0,0,3,14); push @a,(0,12,3,4,0,0,6,4,1,0,6,4,0,1,3,4,0,0,3,16,0,1,1,12,0,0); push @a,(5,-4,0,0,2,-1,0,0,1,12,0,0,2,4,0,29,3,4,0,0,6,4,1,0,6,4); push @a,(0,38,3,4,0,0,6,4,1,39,2,5,1); foreach $f(@a){push @b,$f;$c++;if($c==4*7%8) {$c=0;&q($b[0],$b[1],$b[2]);if($b[3]==1){print"\n";}@b=();}} sub q{for(0..$_[0]){&p($_[1],$_[2]);}}sub p {print chr(4*(2+3)*$_[0]+$_[1]);}