Select Code to Download

<div>
    <ul>
...
    <ul>
    </ul>
</div

sub delete_empty_list_item {
    my $xhtml = HTML::TreeBuilder->new;
...
    </ul>
</div>

sub delete_empty_list {
    my $xhtml = HTML::TreeBuilder->new;
...
    </ul>
</div>