my $csv = Text::CSV_XS->new ({ binary => 1, auto_diag => 1 });
#                              ~~~~~~~~~~~
open my $fh, "<:encoding(utf8)", "test.csv" or die "test.csv: $!";
#              ~~~~~~~~~~~~~~~

##</code><code>##

#!/usr/bin/perl
use strict;
use warnings;
use feature qw{ say };
use charnames ':full';

use Cpanel::JSON::XS;
use Encode qw{ encode };

my $decoded = qq({"yellow horse": "\N{LATIN SMALL LETTER Z WITH CARON}lu\N{LATIN SMALL LETTER T WITH CARON}ou\N{LATIN SMALL LETTER C WITH CARON}k\N{LATIN SMALL LETTER Y WITH ACUTE} k\N{LATIN SMALL LETTER U WITH RING ABOVE}\N{LATIN SMALL LETTER N WITH CARON}"});
my $encoded = encode('UTF-8', $decoded);

my $structure = decode_json($encoded);
binmode *STDOUT, ':encoding(UTF-8)';
say $structure->{'yellow horse'};