for (my $z=0; $z<$anzahl_elemente; $z++) {
	open (my $fh, '<', $pfade[$z]) or die "Fehler beim Oeffnen: $!";

	while (<$fh> && $pruef ==0) {
		$_= <$fh>;

		if ($_ =~ m/^ProductName=/) {
			$teil = substr($_,12, 30);
			chomp $teil;
                        $pruef = 1;
			print $teil, "\n";
		}
        }
}