use warnings;
use strict;

my $file = "D:/perl/02.log";
open my $inFile, '<', $file or die "cant open $file: $!";

# Look for errors
while (<$inFile>) {
    if (/^Status : ERRORS|\d+ failed/) {
        print "There are build errors (see line $.)\n";
        exit 0;
    }
}