Moby has a Shakespeare corpus.
http://www.dcs.shef.ac.uk/research/ilash/Moby/

Well, not a corpus but the complete digital works ready for the grep'ing.

--
$you = new YOU;
honk() if $you->love(perl)