This is what I'd wanted to enter into the obfuscated perl contest, but I obviously didn't get the size requirement for category 4. The actual entry is a lot smaller (347 characters instead of 689), so I was actually much closer to the limit than this reflects. I had to enlarge it quite a bit to make sure that it'd run just fine after being posted. Those blasted binary characters don't seem to transmit properly all the time. Oh well.

$a='}}!165!!228!2 pe!173!s;"n\!153!!153!!161!f!213!t!155!epp
ah dlu!235!s!210!!153!!128!"!218!n\.!128!"!218!n\,!128!!226!
!208!!202!!219!!153!]0[!165!!226!2!220!!222!^l!251! y"
!218! se!227!!225!^!165!!152!poc !153!e!218!ta!234!!228!
!210!!217!soh!156!!133!!138!no!134!i"?1>!165!!197!&l!200!
"e!180!m oN":_!198!!165!--?4&!182!:!165!?3<!182!tnirp!177!
4..1(l$rof{)!165!(elihw;99!129!$;)!151!!150!w !137!t n!132!,
"lanruoJ lreP ehT fo"(=_';$a=~s/\n\s+/\n/g;@s=split//,$a;
$s=$o='@';while(defined($x=pop@s)){next if$x=~/\n/;if ($x eq
"!"){$a=pop@s;$b=pop@s;$c=pop@s;$d=pop@s;$x=chr($c.$b.$a);}
$t=$d{$x}?$d{$x}:$x;$s.=$t;$f=substr$t,0,1;$d{chr$j+++128}=
$o.$f if$j<128;$o=$t}eval$s
[download]