[Thu Sep 21 17:48:38 2006] 
[Thu Sep 21 17:48:38 2006] ------------------------------------------
[Thu Sep 21 17:48:38 2006] Server started.
[Thu Sep 21 18:37:22 2006] Client connected: Alpha
[Thu Sep 21 18:37:31 2006] Client connected: Bravo
[Thu Sep 21 18:38:20 2006] Client connected: Charlie
[Thu Sep 21 18:39:18 2006] Client connected: Delta
[Thu Sep 21 18:53:36 2006] 
[Thu Sep 21 18:53:36 2006] *** Results for Map: Worlds\ReleaseMultiplayer\Bypass
[Thu Sep 21 18:53:36 2006] 
[Thu Sep 21 18:53:36 2006] Team: Team 1
[Thu Sep 21 18:53:36 2006] Score: 93
[Thu Sep 21 18:53:36 2006] 
[Thu Sep 21 18:53:36 2006] Player: Alpha (uid: ad7023b7f46271acd31e1bd287613b6d)
[Thu Sep 21 18:53:36 2006] Score: 55
[Thu Sep 21 18:53:36 2006] Kills: 14
[Thu Sep 21 18:53:36 2006] Deaths: 15
[Thu Sep 21 18:53:36 2006] Team Kills: 0
[Thu Sep 21 18:53:36 2006] Suicides: 0
[Thu Sep 21 18:53:36 2006] Objective: 0
[Thu Sep 21 18:53:36 2006] 
[Thu Sep 21 18:53:36 2006] Player: Bravo (uid: 5fdcc95043dc4dac9d7b4afb8469eb4f)
[Thu Sep 21 18:53:36 2006] Score: 38
[Thu Sep 21 18:53:36 2006] Kills: 11
[Thu Sep 21 18:53:36 2006] Deaths: 17
[Thu Sep 21 18:53:36 2006] Team Kills: 0
[Thu Sep 21 18:53:36 2006] Suicides: 0
[Thu Sep 21 18:53:36 2006] Objective: 0
[Thu Sep 21 18:53:36 2006] 
[Thu Sep 21 18:53:36 2006] Team: Team 2
[Thu Sep 21 18:53:36 2006] Score: 135
[Thu Sep 21 18:53:36 2006] 
[Thu Sep 21 18:53:36 2006] Player: Charlie (uid: e94839cae76debf1418ab9dfaa4c01e8)
[Thu Sep 21 18:53:36 2006] Score: 61
[Thu Sep 21 18:53:36 2006] Kills: 15
[Thu Sep 21 18:53:36 2006] Deaths: 14
[Thu Sep 21 18:53:36 2006] Team Kills: 0
[Thu Sep 21 18:53:36 2006] Suicides: 0
[Thu Sep 21 18:53:36 2006] Objective: 0
[Thu Sep 21 18:53:36 2006] 
[Thu Sep 21 18:53:36 2006] Player: Delta (uid: b2ea959c1b3fa5c35ef6a6e576cdf2af)
[Thu Sep 21 18:53:36 2006] Score: 46
[Thu Sep 21 18:53:36 2006] Kills: 10
[Thu Sep 21 18:53:36 2006] Deaths: 4
[Thu Sep 21 18:53:36 2006] Team Kills: 0
[Thu Sep 21 18:53:36 2006] Suicides: 0
[Thu Sep 21 18:53:36 2006] Objective: 0
[Thu Sep 21 18:53:36 2006] 
[Thu Sep 21 18:53:36 2006] 
[Thu Sep 21 18:57:47 2006] Client disconnected: Delta
[Thu Sep 21 18:58:01 2006] Client disconnected: Alpha
[Thu Sep 21 18:58:17 2006] Client disconnected: Bravo
[Thu Sep 21 18:59:03 2006] Client disconnected: Charlie

##</code><code>##


# loop through, 'nibbling' at logfile with every
# successful match & replacement
while(
  $log =~ s{
  \[ ([^\]]+?) \] \s+ Player\: \s+ ([^\x20]+?) \s+ \( uid: \s+ (\w+) \)  \x0D?\x0A
  \[ [^\]]+? \] \s+ Score: \s+ (\d+)  \x0D?\x0A
  \[ [^\]]+? \] \s+ Kills: \s+ (\d+)  \x0D?\x0A
  \[ [^\]]+? \] \s+ Deaths: \s+ (\d+)  \x0D?\x0A
  \[ [^\]]+? \] \s+ Team \s+ Kills: \s+ (\d+)  \x0D?\x0A
  \[ [^\]]+? \] \s+ Suicides: \s+ (\d+)  \x0D?\x0A
  \[ [^\]]+? \] \s+ Objective: \s+ (\d+)  \x0D?\x0A
  }{}ixms
) {

  # grab values from regex backreferences
  $timestamp = $1;
  $player    = $2;
  $uid       = $3;
  $score     = $4;
  $kills     = $5;
  $deaths    = $6;
  $teamkills = $7;
  $suicides  = $8;
  $objective = $9;
  
  # ...process log entry...
}


##</code><code>##


# loop through, grabbing values for every
# successful match with the /gc flag
while(
  ($timestamp,$player,$uid,$score,$kills,$deaths,$teamkills,$suicides,$objective) = 
  $log =~ m{ \G .+
  \[ ([^\]]+?) \] \s+ Player\: \s+ ([^\x20]+?) \s+ \( uid: \s+ (\w+) \)  \x0D?\x0A
  \[ [^\]]+? \] \s+ Score: \s+ (\d+)  \x0D?\x0A
  \[ [^\]]+? \] \s+ Kills: \s+ (\d+)  \x0D?\x0A
  \[ [^\]]+? \] \s+ Deaths: \s+ (\d+)  \x0D?\x0A
  \[ [^\]]+? \] \s+ Team \s+ Kills: \s+ (\d+)  \x0D?\x0A
  \[ [^\]]+? \] \s+ Suicides: \s+ (\d+)  \x0D?\x0A
  \[ [^\]]+? \] \s+ Objective: \s+ (\d+)  \x0D?\x0A
  }ixmsgc
) {
  
  # ...process log entry...
}