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

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