my $content = q|
Div number 12
You have an error blah blah blah
Div number 13
|;
my $tree = HTML::TreeBuilder::XPath->new;
$tree->parse_content( $content );
my @divs = $tree->findnodes( '/html/body/div' );
for my $div (@divs) {
print $div->as_HTML . "\n";
}