my $count;
while (<FILE>) {
   if ( $count += s/foo/foo/g ) { print "$count so far\n" )
}