#!/usr/bin/perl

use strict;
use warnings;

use JSON::XS;

my @in     = <DATA>;
my $in     = join("",@in);
my $dat    = JSON::XS->new->decode($in);
my $dat2   = JSON::XS->new->utf8(0)->decode($in);
my $dat3   = JSON::XS->new->utf8(1)->decode($in);

1;

__DATA__
{
   "x" : "&#259;"
}