in reply to Elegant examples to parse parenthesised strings
my @exps = $text =~ / \( ( [^\(]*? ) \) /xmg; [download]