#!/usr/bin/perl

while(<>){
 if(/([0-9][0-9][0-9][0-9]-[0-9][0-9]-[0-9][0-9] [0-9][0-9]:[0-9][0-9])  *([0-9]+) .*/){
  $date=$1;
  $count=$2;
  if(defined $oldcount){
   $diff=$count-$oldcount;
   print "$date $diff\n";
  }
  $oldcount=$count;
 }
}
