$_ = '"' . ('x\"' x 100000) . '"';
print "NOT MATCHED!\n" unless
  /^ " (?: [^"\\]+ | (?: \\. )+ )*+ " /x;
__END__
Complex regular subexpression recursion limit (32766) exceeded at foo line 4.
NOT MATCHED!