Я не знаю про ключ --count. Принципиально не забиваю таким голову. Запомнил grep как некий аналог substr(). Если мне надо искать что-то более сложное, я начинаю подозревать, что использую не тот инструмент.

Надысь прислали ссылку http://okmij.org/ftp/ML/myawk/index.html

Пример оттуда

    cat ./bench_result.txt | grep baseline >| bench_baseline.txt && \
    cat ./bench_result.txt | grep staged   >| bench_staged.txt

А если здесь вместо файла stdin? Они же приводят решение на OCaml без повторного чтения

    let () =
      with_output_file "bench_baseline.txt" @@ fun chbase ->
      with_output_file "bench_staged.txt" @@ fun chstaged ->
      for_each_line ~fname:"bench_result.txt" @@ fun l ->
      l |> cases [
       optthen (strstr "baseline") (fun _ -> print ~ch:chbase [l]);
       optthen (strstr "staged")   (fun _ -> print ~ch:chstaged [l]);
       fun l -> Some (print_endline l)      (* default case *)
      ]

А вот мой велосипед:

начало = <Open 'w' 1 'bench_baseline.txt'>
         <Open 'w' 2 'bench_staged.txt'>
         <распредели>
         <Close 2>
         <Close 1>;
распредели {
  = <распредели <Card>>;
  0 = ;
  . 'baseline' … = <Putout 1 . …> <распредели>; // подстрока 'baseline' не копируется в результат.
  . 'staged' …   = <Putout 2 . …> <распредели>;
  .              = <Prout .>      <распредели>;
}

<Close 2> не очень в 21-м веке выглядит, но это потому что <Card> -- ввод с перфокарты. То есть тут ещё вопрос, а что на самом деле велосипед.