push @buffer, join("|", @fields) . "\n";
  $buffer .= "\n";
  if ( --$fuse == 0 ) {
      print OUTPUT @buffer;
      @buffer = ();
      $fuse = $LINES_TO_BUFFER;
  }