Select Code to Download

$regex = qr/--/
...
   unshift(@match, $thestring);
}

081407 start up server
081407 -- fatal error in procedure 1
081407 -- disconnected user
081407 -- logging started
081407 -- not enough space

081407 -- fatal error in procedure 1
081407 -- not enough space

081407 -- disconnected user
081407 -- logging started

1. get all occurrences of "--".
2. in those occurrences of "--" ignore those that have "logging" and "
+disconnected"
...
qr/-- || ~! logging,disconnected/ (wrong syntax of course)

something like an ignore list.