#!/usr/bin/perl -w
use strict;

my $mm=qq(\"000.E+3\",\"\",\"\",\"\",\"QCA-086_2\",\"-1\",\"P\",\"FALSE\"); 
my @p = ($mm=~m/(\"[A-Za-z0-9_\-,.+]+\")/g); 
print map {qq($_\n)} @p;
1;

##</code><code>##

"000.E+3"
","
","
","
","
","
","

##</code><code>##

#!/usr/bin/perl -w
use strict;

my $mm=qq(\"000.E+3\",\"\",\"\",\"\",\"QCA-086_2\",\"-1\",\"P\",\"FALSE\"); 
my @p = ($mm=~m/(\"(?:[A-Za-z0-9_\-,.+]+)?\")/g); 
print map {qq($_\n)} @p;
1;

##</code><code>##

"000.E+3"
""
""
""
"QCA-086_2"
"-1"
"P"
"FALSE"