$name =~ s/
    (\()      # $1
        (.+)  # $2
    (?!\))
    /$1$2\)/gx;