my $count = () = $text =~ /g/g;