s/</&lt;/ for @HTML;
s/>/&gt;/ for @HTML;
s/&/&amp;/ for @HTML;

print '<textarea>', join("", @HTML), '</textarea>';

##</code><code>##

use CGI qw(:standard);
print textarea('', escapeHTML(join '', @HTML));