use utf8;
use Encode qw(encode_utf8);
use JSON;
use Data::Dumper;
my $data = qq( { "cat" : "text – abcd" } );
my $json_data = encode_utf8( $data );
my $perl_hash = decode_json( $json_data );
print Dumper($perl_hash);