@HTMLUN2 = map { s/</&lt/; $_ } @HTMLUN1;
@HTML = map { s/>/&gt/; $_ } @HTMLUN2;

print <<HTML;
<textarea>@{[join("",@HTML)]}</textarea>
HTML