perl foobar.pl >tmp
grep -E '^BOOM:' tmp | wc -l