open TRACEFILE, "<C:\\myfile.txt" or die "cannot open tracefile";
my $found=0;
while (!eof TRACEFILE) {
	$in_line = <TRACEFILE>;    # lese aktuelle Zeile ein
	chomp($in_line);
	if ($in_line =~ m/CP_NG/) {
		$found++;
	}
}
print "anzahl treffer: $found\n";