use Regexp::Common qw/delimited/;
q{ x "foo \"bar\"" y } =~ /$RE{delimited}{-delim=>'"'}{-keep}/;
print $3, "\n";  # prints: foo \"bar\"