#!/usr/bin/perl
while(<>)
{
  if(/<GC\((\d+)\): *freed *(\d+) bytes, *(\d+)% free \((\d+)\/(\d+)/)
  {
    $nr=$1;
    $freed = $2;
    $pfree =$3;
    $free=$4;
    $hsize=$5;
    $zu=$hsize-$free;
    $von=$zu+$freed;
    print "$nr\t$freed\t$von\t$zu\t$hsize\n";
  }
}