my $count = () = $str =~ m/\bfoo\b/g;