#!/usr/bin/perl

use strict;
use warnings;

use YAML::Syck;

my @in     = <DATA>;
my $in     = join("",@in);
my $dat    = Load($in);

1;

__DATA__
---
x : &#259;

##</code><code>##

DB<1> p Dumper $dat
$VAR1 = {
          'x' => '&#259;'
        };

##</code><code>##

DB<1> p Dumper $dat
$VAR1 = {
          'x' => "\x{103}"
        };

##</code><code>##

#!/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;"
}