#!/usr/bin/perl

$|=1;
while ( <STDIN> ) {
  
  if($_ =~ /.*majorcount\s+(\d+).*/)  {
      $val = $1;
      print "majorcount = $val\n"; 
  }

  if($_ =~ /.*tick\s+(\d+).*/)  {
      $val = $1;
      print "tick = $val\n"; 
  }

  if($_ =~ /.*comment\s+(.+).*/) {
      $msg = $1;
      print "comment = $msg\n"; 
  }
}

