Select Code to Download

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

...

    print $Plog $_;
}

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.

Log Entry 10: 06 Feb 2011 10:36:26
--->
...
Sensor: System Event
0x204D4E79AA0200B0 FFFF027000120300