my $count = $string =~ s/word/word/g;