Help for this page
/("[^"]*?")/g
/("(?:\\"|[^"])*?")/g
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"