The code above took second place in its category in The Perl Journal's 0th annual obfuscated Perl coding contest.
The category required only that one print the words "The Perl Journal" ... nothing else. The program began with an idea that I had that involved allowing the Perl program read data from its own set of comments.
To confuse the reader, I implemented the above as a small p-machine and interpreted a short program to read from the comments and display The Perl Journal.
( Perhaps the above is a little easier to read than the top entry?)
I took half of the top portion of the code and half of the lower portion and then interlaced the characters of each. I added a for loop to the final code that separated the two halves, concatenated them, then called eval() to interpret the original program.
for($i=0;$i<368;$i+=2){$s=substr($v,$i,1);$q=$q .
(($s eq '|') ? "'" : $s);$s=substr($v,$i+1,1);$r=$r .
(($s eq '|') ? "'" : $s);}eval( $q . $r);print "\n";
Back to Jimbo's Demented Software