my @exps = $text =~ / \( ( [^\(]*? ) \) /xmg;