$ perl -E '
 use utf8;
 use Data::Dumper;
 my $data = qq( { "cat" : "text – abcd" } );
 print Dumper($data);
 '
$VAR1 = " { \"cat\" : \"text \x{2013} abcd\" } ";