Try dropping this into your .emacs file...
(defun nodify ()
"Autonodify for Everything2."
(interactive)
(goto-char 0)
(replace-regexp "<A HREF=\"/Shakespeare[^>]+gloss[^>]+>\\([^<]*\\)</A>" "[\\1]" nil)
(goto-char 0)
(replace-string "</STRONG>" "]" nil)
(goto-char 0)
(replace-string "<STRONG>" "[" nil)
(goto-char 0)
(replace-string "</BLOCKQUOTE>" "" nil)
(goto-char 0)
(replace-string "<BLOCKQUOTE>" "" nil)
(goto-char 0)
(replace-regexp "<A NAME=\\([0-9]+\\)>\\([^<]+\\)</A>" "<small>\\1</small> \\2" nil)
(goto-char 0)
(replace-regexp "<P>\\[[A-Za-z ]+\\]$" "\\&<br>" nil)
(goto-char 0)
(replace-string "<BR>\n<BR>" "<BR>" nil)
)
And then load in the HTML, and do M-x nodify, and it'll bash all sorts of things into some sort of shape.
There's a bit more that could be
automagically done here, such as sorting out the stage directions. This is what i'm currently using on
Pericles Prince of Tyre.