http://www.perlmonks.org?node_id=723427

in reply to Re: [Fun] Exquisite Corpse in Perl?
in thread [Fun] Exquisite Corpse in Perl?

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;
}