undef $/;
open(IN, 'd:\temp.log');
$str = <IN>;
(@str) = $str =~ m#(note;.*?)\n#gsi;
local $"="\n";
print "@str";
$pass = scalar(@str);

if($pass >= 3) {
	print "Passed";
}
else {
	print "Failed";
}