use strict;
use warnings;
use HTML::Treebuilder;

my $html = '<h1>Blah</h1>
&nbsp;<p>&nbsp;<br>
<h2>Blah</h2>';

my $element_root = HTML::TreeBuilder->new_from_content($html);
my $body = $element_root->look_down( _tag => "body");
$body->dump;
print "\n";
$body->splice_content(1,2);
$body->dump;