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

A bit of a silly one. I dare somebody to deconstruct it :)
$$=q{$_=unpack'u',q|L)%\]<2$D7STG<')I;G0@(DIU<W0@86YO=&AE<B! 097)L(&AA8VME<B(G(3L`|;};$}=q{$_=unpack'u',q|<)%\])R1?/7$A*" 1?*3TH)"0]?B\N*B]G*2$G.P``|;};$$=~s;\n;;g;$;=q;$_=$};;$_='$_ =$;;';$}=~s;\n;;g; eval;eval;eval;eval;eval;eval;eval;eval;eval;eval;