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]

In reply to what I wanted to enter... by jimt

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.