my $string = "aaab";
$string =~ s/a*/go/g;