while(<>) {
  $line = $_; chomp($line);
  $printline = 0;
  if($line =~ /^jobstart/o) {
    $printline = 1;
  } else {
    if($line =~ /^filestart/o) {
      $printline = 1;
    } else {
      if($line =~ /^fileend/o) {
        $printline = 1;
      } else {
        if($line =~ /^jobend/o) {
	  $printline = 1;
	} else {
	  if($line =~ /^info/o) {
	    $printline = 1;
	  } else {
	    if($line =~ /^control/o) {
	      $printline = 1;
	    }
	  }
	}
      }
    }
  }
  if($printline) {
    print "$line\n";
  }
}