#!/usr/local/bin/perl

use strict;
use warnings;
use Data::Dumper;
$Data::Dumper::Indent = 1;

my ($job);

while(<DATA>){                     
  
  chomp;
    
  next unless  /Synchronizing started|Synchronizing finished|Summary/;
  
  my $summary;
  $summary++ if /Summary/;
  
  my $this_job;
  if (($this_job) = $_ =~ /"New Job (\d+)"$/){
    $job = $this_job;
  }
  
  print qq{job: $job } if $summary;
  print qq{$_\n};
  
};

__DATA__
[4/14/2008 4:44 PM] Analyzing started, job: "New Job 1"
[4/14/2008 4:45 PM] Synchronizing started, job: "New Job 1"
[4/14/2008 4:45 PM] Analyzing finished, job: "New Job 1"
[4/14/2008 4:45 PM] Synchronizing finished, job: "New Job 1"
[4/14/2008 4:45 PM] Summary: Files processed: 6,554; Files copied: 1; Bytes processed: 1,633,599,552; Bytes copied: 1,221,120.
[4/14/2008 5:03 PM] Analyzing started, job: "New Job 2"
[4/14/2008 5:06 PM] Analyzing finished, job: "New Job 2"
[4/14/2008 5:06 PM] Synchronizing finished, job: "New Job 2"
[4/14/2008 5:06 PM] Summary: Files processed: 136; Files copied: 58; Bytes processed: 14,427,075; Bytes copied: 14,427,075.
[4/14/2008 5:08 PM] Analyzing started, job: "New Job 3"
[4/14/2008 5:08 PM] Analyzing finished, job: "New Job 3"
[4/14/2008 5:08 PM] Synchronizing started, job: "New Job 3"
[4/14/2008 5:08 PM] Synchronizing finished, job: "New Job 3"
[4/14/2008 5:08 PM] Summary: Files processed: 38; Files copied: 17; Bytes processed: 292,097; Bytes copied: 294,793.