while ( my $proc = <PROCS> ) {
      # if the grep filters out everything, this is a
      # zero-trip loop.
  }