#!/usr/bin/perl

use File::Slurp;
use Encode;

my $file = read_file("./in.txt");

$file =~ s/\\u(....)/chr hex $1/ge;

print "$file\n";

##</code><code>##

use File::Slurp;
use Encode;
use JSON;
use Unicode::MapUTF8 qw(to_utf8 from_utf8 utf8_supported_charset);

my $file = read_file("./in.txt");

my $json_var = decode_json($file);

foreach (@{$json_var->{results}}) {
	$_->{description} =~ s/([\200-\377]+)/from_utf8({ -string => $1, -charset => 'ISO-8859-1'})/eg;
	print "BLA - $_->{description} \n";
}