Black Perl

Black Perl is an infamous piece of Perl poetry. It was posted to Usenet on April 1, 1990. It is written in Perl 3 and will not parse under Perl 5 (to the apparent relief of Larry Wall, creator of Perl, as the Camel book claims). Multiple independent updates to make it parsable in Perl 5 have been published. [cite web|url=http://www.perlmonks.org/?node_id=237465 |title=Black Perl updated for Perl 5 |author=jonadab |date=2003-02-21 |accessdate=2007-09-15] [cite web |url=http://www.perlmonks.org/?node_id=578707 |title=Black Perl Revisited |author=Ovid |date=2006-10-17 |accessdate=2007-09-15] The full text of the poem is reproduced below.

Attribution

While the poem itself is signed "Larry Wall", the original message was posted with forged message headers. No authoritative attribution is known to this day. Sharon Hopkins has been suspected, but has denied authorship. [cite newsgroup
title = Re: Forking a bunch of processes...
author = Sharon Hopkins
date = 1993-04-16
newsgroup = comp.lang.perl
id = 21cb02abcb1bf3c8
url = http://groups.google.com/groups?hl=en&selm=[e-mail]
accessdate = 2007-09-15] Randal Schwartz has claimed that Larry Wall is in fact the author. [cite newsgroup
title = Re: Black Perl
author = Randal L. Schwartz
date = 2001-09-04
newsgroup = comp.lang.perl.misc
id = 41b073d32886eb7a
url = http://groups.google.com/groups?hl=en&selm=[e-mail]
accessdate = 2007-09-15]

"Black Perl"

BEFOREHAND: close door, each window & exit; wait until time. open spellbook, study, read (scan, select, tell us);write it, print the hex while each watches, reverse its length, write again; kill spiders, pop them, chop, split, kill them. unlink arms, shift, wait & listen (listening, wait),sort the flock (then, warn the "goats" & kill the "sheep"); kill them, dump qualms, shift moralities, values aside, each one; die sheep! die to reverse the system you accept (reject, respect);next step, kill the next sacrifice, each sacrifice, wait, redo ritual until "all the spirits are pleased"; do it ("as they say").do it(*everyone***must***participate***in***forbidden**s*e*x*).return last victim; package body; exit crypt (time, times & "half a time") & close it, select (quickly) & warn your next victim;AFTERWORDS: tell nobody. wait, wait until time; wait until next year, next decade; sleep, sleep, die yourself, die at last
# Larry Wall

References