You have neglected to mention

$ perl -wle 'use CGI q(escapeHTML); for (0..0x7F)
   {push my @p,chr,escapeHTML(chr); print join "|", @p if $p[0] ne $p[1]};'
"|"
&|&
'|' <--------------this item
<|<

       Provided that you have specified a character set of ISO-8859-1 (the
       default), the standard HTML escaping rules will be used.  The "<" character
       becomes "<", ">" becomes ">", "&" becomes "&", and the quote
       character becomes """.

By the way, say which quote, "double" or "single". (Answer: double).