my $log = "${PORT_LOG_DIR}/abc.log";
    open(MY_LOG, $log) or die "Could not open file 'log' $!";
    while (my $line = <MY_LOG>) {
        chomp ($line);
        if ($line =~ /Error compiling file|Error:/i) {
            .
            .
        }
    }
    close(MY_LOG);