#!/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;