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]);}
[download]