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