#!/usr/bin/perl

open IN,"gier.debug";

while($l=<IN>)
{
  chomp($l);
  if($l =~ /segment/)
  {
    print "$l\n";
  }
  elsif($l =~ /^Segment/)
  {
    print "$l\n";
    $l=<IN>;
    chomp($l);
    while($l =~ /^\d/)
    {
      print "$l\n";
      $l=<IN>;
      chomp($l);
    }
  }
}

close(IN);