my $project = '';
while (<BUILDLOG>) {
	if (/Project: (.+), Configuration/) {
		$project = $1;
	}
	if (/- (\d+) errors?, (\d+) warnings?/) {
		if ($1 > 0) {
			print "$1 errors for project $project\n";
		}
	}
}