#!/usr/bin/perl
use HTML::TreeBuilder;
my $html = qq{
Hi THere
};
sub remove_empty_tags {
my $parser = shift;
my $tags = shift;
my @children = $parser->content_list();
if ( !@children and grep { uc($_) eq uc($parser->tag()) } @$tags ) {
$parser->detach();
}
&remove_empty_tags( $_, $tags ) foreach @children;
}
my $parser = HTML::TreeBuilder->new_from_content( $html );
$parser->objectify_text();
remove_empty_tags( $parser, ['FONT','SPAN'] );
print $parser->as_HTML, "\n";