use warnings; use strict; use Mojo::DOM; my $html = <<'ENDHTML'; Title
ENDHTML my $dom = Mojo::DOM->new($html); $dom->find('div > div.blue') ->each(sub{ $_->parent->remove }); print $dom; __END__ Title