use XML::LibXML;

my $dom = XML::LibXML->load_html(
    location => $fileName,
    recover => 1,  # handle marginal HTML
);
print $dom->toString;