#!/usr/bin/perl
$a=1;
while(<>)
{
  if(/^\[GC\s*(\d+)K->(\d+)K\((\d+)K\)/)
  {
    $von=$1;
    $zu=$2;
    $hs=$3;
    #print "von=$von zu=$zu hs=$hs\n";
    $comp=$von-$zu;
    print "$a\t$von\t$zu\t$hs\t$comp\n";
    $a++;
  }
}