Help for this page

Select Code to Download

Select or download this

@HTMLUN2 = map { s/</&lt/; $_ } @HTMLUN1;
@HTML = map { s/>/&gt/; $_ } @HTMLUN2;
...
print <<HTML;
<textarea>@{[join("",@HTML)]}</textarea>
HTML