- my @lines = split(/\r?\n/, $data);
- $data = { items => [] };
+ open my $fh, "<:encoding($encoding)", $path or die "$path: $!";
+ my $first = <$fh>;
+ my $possible_delimiters;
+ while ( $first =~ s/(\W)// ) {
+ $possible_delimiters->{$1}++;
+ }
+ warn "# possible_delimiters = ",dump($possible_delimiters);
+ seek $fh,0,0; # rewind for Text::CSV