This Perl script is a slightly modified version of Werd by Christopher Pound, and most of the glory goes to him.
The Steven Hawking dataset for Werd is property of BYOV.