my @recs = $recs =~ /
   \G
   \(
   ( (?: [^()"] | "[^"]*" )* )
   \)
   (?: , | \Z )
/xg;