Select Code to Download

while ($line =~ m/"([^"\\]*(?:\\.[^"\\]*)*)",?|([^,]+),?|,/g) {
#                          ^^^
    push(@fields, defined($1) ? $1 : $2);
#                                    ^^

    push @fields, $1 // $2;

    push @fields, $1 // $2 // '';