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