if ( /1tally\s\s(\d+)\s+nps\s=/i ) {
  foreach ( 1 .. 5 ) {
    my $junk = <OUT>;
  }
  next;
}