The winners of the always fun Obfuscated Perl Contest have been announced. If you are interested in Perl you will definitely want to take a look.
http://www.itknowledge.com/tpj/obfusc-5-awards.html
To give you an idea of the madness of this contest here is the winner of the print "The Perl Journal" category:
Code:
#:: ::-| ::-| .-. :||-:: 0-| .-| ::||-| .:|-. :||
open(Q,$0);while(<Q>){if(/^#(.*)$/){for(split('-',$1)){$q=0;for(split){s/\|
/:.:/xg;s/:/../g;$Q=$_?length:$_;$q+=$q?$Q:$Q*20;}print chr($q);}}}print"\n";
#.: ::||-| .||-| :|||-| ::||-| ||-:: :|||-| .:|