#!/usr/bin/perl use warnings; use strict; use HTML::TreeBuilder 5 -weak; my $tree = HTML::TreeBuilder->new; my $content = join "\n", ; $tree->no_space_compacting(1); $tree->ignore_unknown(0); $tree->parse($content); $tree->eof(); print $tree->as_HTML('<>&'); __DATA__ adv.
1 maldosamente
2 maliciosamente
3 intencionalmente ##

##

adv.
1 maldosamente
2 maliciosamente
3 intencionalmente