use XML::LibXML;
my $xml_string = "<test>Teststring</test>";
my $parser = XML::LibXML->new;
eval { $parser->parse_string($xml_string) };
print "it's not a valid xml" if ($@) ;