if ($_ =~ m/^ProductName=(.+)$/) {
			my $teil = $1;
			chomp $teil;
                        $pruef = 1;
			print $teil, "\n";
		}