open(PROCS, "ps -a | grep $process |");
  while ( my $proc = <PROCS> ) {
      # ...
  }

##</code><code>##

  open(PROCS, "ps -a |");
  while ( my $proc = <PROCS> ) {
      next if $proc !~ /$process/;
      # ...
  }