/"([^"]*)"/

##</code><code>##

  /"([^a]*)"/

##</code><code>##

  perl -wle '$a = "hello\"you";if ($a =~ /"([^"]*)"/){ print "yes"}else{print "no"}'