#!/usr/bin/perl

use strict;
use warnings;
use Mojo::DOM;

my $html = '<ul><li>1</li><li>2</li><li></li><li>4</li><li></li><li>six</li>';

my $dom = Mojo::DOM->new( $html );

for ( $dom->find('li:empty')->each ){

    $_->remove();

}

print "$dom\n";