Why not just do something like this ...

while(<logHndl>) {
        next if /^ORA-00001: unique constraint (blablablabla) violated
+/ ;
        #
        # grep for keyword ERROR or ORA-ERR
        #
        push(@errors, grep (/ERROR|ORA-ERR|Fail|Unable/i, $_));
    }
[download]