Help for this page
s{ ( [(] [^()]* [)] ) # Leave text in parens alone ... }{ $1 ? $1 : $replace($2) }gex;