Нет, я думаю, что ты такой же хороший, как и он. Естественно, вы могли бы сделать это с помощью одного скрипта perl,
perl -nle 's/.*(error|fail|success).*/$1/ && $a{$_}++ ; END { print "$_ $a{$_}" for keys %a } ' test.txt
... но он более сложный и менее интуитивный.