#!/usr/bin/perl

$lastTime = 0;
$filter = true;

while(<>) { 
  if (/^\[\s*(\d+\.\d+)\](.*)$/) { 
    $newTime = 1272385254 + $1/1000;
    if($filter && $newTime > $lastTime) {
      print "[ $newTime]$2\r\n";
      $lastTime = $newTime;
    }
  } 
}
