LINE: while ( defined( $_ = <$Rlog> )) {

    s/^Alert Level\s0*(?:[3-9]|\d{2,})/(?!.*Log Entry)/DEREK!!!!\n$&/s;
}
continue {

    print $Plog $_;
}

##</code><code>##

Bareword found where operator expected at foo line 12, near "s/^Alert Level\s0*(?:[3-9]|\d{2,})/(?!.*Log Entry)/DEREK!!!!"
Backslash found where operator expected at foo line 12, near "DEREK!!!!\"
syntax error at foo line 12, near "s/^Alert Level\s0*(?:[3-9]|\d{2,})/(?!.*Log Entry)/DEREK!!!!!"
Execution of foo aborted due to compilation errors.

##</code><code>##

Log Entry 10: 06 Feb 2011 10:36:26
--->
Alert Level 2: Informational
--->
Keyword: Type-02 127002 1208322
Soft Reset
Logged by: Baseboard Management Controller;
Sensor: System Event
0x204D4E79AA0200B0 FFFF027000120300