Select Code to Download

decode_json(encode_utf8($json))

from_json(decode_utf8(encode_utf8($json)))

use utf8;

...

my $json = q({ "cat" : "text – abcd" });
my $data = from_json($json);

use open ':std', ':encoding(UTF-8)';

print($data->{cat}, "\n");

#!/usr/bin/perl

...
my $json = q({ "cat" : "text – abcd" });
my $data = from_json($json);
print($data->{cat}, "\n");