use XML::LibXML qw( );

local our $doc;
$content =~ /(?(?{ !eval {
    $doc = XML::LibXML->new()->parse_string($_)
} })(?!))/;