my $quote = qr/"[^"]*"/; # Naive
  s{\G((?>.*?(?:$quote|(?=(\(\{|\}\)))))*?)\2}
   {$1 . ($2 eq '(\{' ? '[' : ']')}eg;