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

##</code><code>##

    push @fields, $1 // $2;

##</code><code>##

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