$_ = sprintf q{"%s"}, "a" x 32768;
  /"((?:\\.|[^"])+)"/;