use strict;
use warnings;
use XML::LibXML;

my $raw = do { local $/; <DATA> };

my $parser = XML::LibXML->new;
$parser->recover_silently(1);

my $doc = $parser
    ->parse_html_string("<div>$raw</div>");

my $wrapper = [ $doc->findnodes("//body/div") ]->[0];

print $_->serialize(1)
    for $wrapper->childNodes;

exit 0;

__DATA__
All content is in a variable like this...<br>
<br>
<a href="http://www.somedomain.com/index.cgi?page=home&var=1&no=2&so=forth&so=on">