use XML::LibXML;
my $parser = XML::LibXML->new();
my $doc    = $parser->parse_string($string);
my $root   = $doc->documentElement;
# einzelne elemente holen
my $titel = ($root->findnodes('titel'))[0]->textContent: