my $count = $string =~ s/\bfoo\b/foo/g;