sub delete_empty_list {
	my $xhtml = HTML::TreeBuilder->new;
	$xhtml->implicit_tags(1);
	$xhtml->parse_file($file);

	for my $list ($xhtml->findnodes('/html/body//div/ul')) {
		if ($list->is_empty) {
			print qq(DELETE\n);
			$list->delete();
		}
	}
    print $xhtml->as_XML_indented;
	$xhtml->eof;
}

OUTPUT:
<div>
	<ul>
		<li>one</li>
		<li>two</li>
		<li>three</li>
	</ul>
	<ul>
		<li></li>
		<li>two</li>
		<li></li>
	</ul>
</div>