If you always have the same amount of fields, you might get away with:

my $regex = join ', ', ('".*?"') x 5;
$regex = qr/$regex\n/s;

while (my @fields = $data =~ /\G$regex/g) {
    ...
}
[download]

(untested as usual)