my $re = qr/
  (?<FQ>['"])         # Capture starting quote.
  (?<content>         # Capture content.
    (?:
      (?>[^'"]*)      # Match non-quotes, don't backtrack.
      (?(?!\k<FQ>).)  # Match opposite quote.
    )*                # Repeat.
  )
  \k<FQ>              # Match ending quote.
/x;