#!/usr/bin/perl

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