Select Code to Download

$myvar =~ /"(.*)"/;

$myvar = qq(Tom said "hi.  It's me," and Sally replied "get lost, Ovid
+ is more my style.  Doncha think?");
$myvar =~ /"(.*)"/;
print $1;

hi.  It's me," and Sally replied "get lost, Ovid is more my style.  Do
+ncha think?

$myvar =~ /"(.*?)"/;

$myvar =~ /"([^"]*)"/;

$myvar =~ /"((?:[^?"]|\?[^"])*)\?"/;

$myvar =~ /"           # First quote
            (          # Capture text to $1
...
             )*        # Zero or more
            )          # End capture
          \?"/x;       # Followed by a question mark and quote