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