I personally believe I should thank you for taking part to the experiment: if nobody else joins say within tomorrow morning, I'll propose the next step myself, if you like, as an update to this very post. Then I'd go as far as corpse-6.pl and see which kind of "twitching mass of random code" got out of it!
Update: [Fri Nov 21 15:56:53 2008] here it is, and sorry for the minimality, but aqs you can see I've been procrastinating so much that I was beginning to think I wouldn't have done it any more if not so. Still, I think something moderately interesting may get out of it. I hope that the names of the variables are either illuminating or... pleasantly misleading enough! ;)
6 23 142 corpse-3.pl
C:\temp>tail -n2 corpse-3.pl
$c = trim("@tmp", $lastlen) or last;
No open curlies!