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