@HTMLUN2 = map { s//>/; $_ } @HTMLUN2; print <@{[join("",@HTML)]} HTML