use File::Slurp;
use YAML qw/DumpFile/;
use Text::CSV;
-use Encode qw/decode/;
+use Encode qw/from_to/;
my $debug = 0;
my $path = shift @ARGV || die "usage: $0 file.csv\n";
my $csv = read_file( $path );
-$csv = decode('utf-16', $csv);
+from_to($csv, 'utf-16', 'utf-8');
my @columns;
# fix tel fields
$v =~ s{\s+}{#}g if $n =~ m{tel};
- $v =~ s[\x{17d}][F] if $n =~ m{spol};
+ $v =~ s[\xC5\xBD][F]i if $n =~ m{spol};
if ( $v =~ m{#} ) { # subfields delimiter in CSV data
my @v = split(/\s*#+\s*/, $v);