use XML::LibXML;
my $parser   = XML::LibXML->new();
my $xml_text = eval { $parser->parse_string($text); };
print $@