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! ;)
C:\temp>wc corpse-3.pl
6 23 142 corpse-3.pl
C:\temp>md5sum corpse-3.pl
773de225d9053be5e311d9a4ed54bc43 *corpse-3.pl
C:\temp>tail -n2 corpse-3.pl
$c = trim("@tmp", $lastlen) or last;
}
No open curlies!