my @fields = split /(?<!\\),/, $line;