use strict; my $i; while () { my @m = ($_ =~ /formulae/g); $i += @m; } print "Found $i matches\n"; __DATA__ message one message two formulae formulae message threee