use strict;
my $i;
while (<DATA>) {
  my @m = ($_ =~ /formulae/g);
  $i += @m;
}
print "Found $i matches\n";

__DATA__
message one
message two formulae formulae
message threee
[download]

PerlMonks lovingly hand-crafted by Tim Vroom.
PerlMonks somehow became entangled with The Perl Foundation.
Beefy Boxes and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.