The first lie is an usual beginner error in the first statement: if($/=';')
instead of if($/ eq ';'); but I really mean the former, because I want it to
be always true and I try to conceal the assignement; so, the commands in the
'else' are never executed (in fact, the print there is wrong, it would print
"ehT lreP lanruoJ\n". 
Then the file opens itself and reads the comments, split them by whitespaces 
and reverse the resulting array to avoid change of indices if 
'#!/usr/local/bin/perl' is prepended to the file. 
I use the year for the name of an output file, and do arithmetics with it to 
replace numbers by a variable $m which change value along the script. (So the
script will stop working on 2012, I hope that's enough time for the members of
the committee to make up their minds).
I'm specially proud of the statement 
'($value=(<M>)[$m])=~s/^\s*\((.{$m}).*/$1/s;' which in fact reads itself and
makes the assignement 
$value='$value=';
Then, I use the text in the comments to write the real script to the output 
file and execute it. The output file reads (after splitting the statements for
readability):

use LWP::Simple;
$value=get 'http://itknowledge.com/tpj/obfusc-4.html';
$value=~s/.*<title>\s*//is;
$value=~s/\s*<\/title>.*//is;
print main::STDOUT $value;

It gets 'The Perl Journal' from the very source of it: the title of the 
contest Web page.

What need to recreate the string, when it's already printed elsewhere?
(It's also printed in my script, but this is an obfuscated contest, isn't it?)

    ,       ,     ,
German Fernandez Sanchez
