my $text = "my dog is green";
my $count =()= $text =~ /(g)(.)/g;
print $count;

##</code><code>##

my $text = "my dog is green";
my $count;
$count++ while $text =~ /(g)(.)/g;
print $count;

##</code><code>##

my $text = "my dog is green";
my $count = $text =~ s/(g)(.)/$1$2/g;
print $count;