Help for this page

Select Code to Download


  1. or download this
    /("[^"]*?")/g
  2. or download this
    /("(?:\\"|[^"])*?")/g
  3. or download this
    my $mm=qq(\"000.E+3\",\"\",\"\",\"\",\"QCA-086_2\",\"-1\",\"P\",\"FALS
+E\",\"this \\\"is\\\" quoted\"); 
my @p = ($mm=~m/("(?:\\"|[^"])*?")/g); 
...
"P"
"FALSE"
"this \"is\" quoted"