#! /usr/bin/perl
use strict;
use warnings;
use HTML::TreeBuilder;
my $new_div = HTML::Element->new_from_lol(
[
q{div}, {id => q{memberships}},
[q{p}, q{new stuff}]
],
);
my $p = HTML::TreeBuilder->new_from_file(*DATA)
or die qq{H::TB new failed\n};
my $memberships_div = $p->look_down(
_tag => q{div},
id => q{memberships},
) or die qq{memberships div not found\n};
$memberships_div->replace_with($new_div);
print $p->as_HTML(undef, q{ }, {});
__DATA__
replace test
keep
keep
keep
keep
####
replace test
keep
keep
keep
keep