use strict;
use warnings;
use XML::LibXML;

my $filename = "Test.xml";

my $my_object = XML::LibXML->new();
my $treeobjekt   = $my_object->parse_file($filename);
my $root = $treeobjekt->getDocumentElement;

my @units=$treeobjekt->findnodes("//excerpt/unit");

for(my $i=0;$i<@units;$i++)	{
	my $unitname=$units[$i]->findvalue('./Name/text()');
	
	my $art = $units[$i]->findvalue('./products/article');
	
	my $art_chain = join('---', split(/\n/, $art));
		
	print "$unitname;$art_chain\n";
}