$ perl -E 'use utf8;
 my $data = qq( { "cat" : "text – abcd" } );
 binmode STDOUT, ":utf8";
 say $data;
 '
 { "cat" : "text – abcd" }