use strict;
use warnings;
use JSON::XS;
use Path::Tiny;
use Encode 'encode_utf8';

my $path = '~/monks/json.txt';
my $json = path($path)->slurp;
my $data = decode_json($json);
my $text = encode_utf8($data->{text});

print $text, "\n";

__END__