print "($1)($2)\n"
    while  "ggGGGG" =~ /([a-z])\U(\1*g)/g;
# (g)(gG)