#!/usr/bin/perl

use v5.14;
use warnings;
use utf8::all;

use JSON::XS qw( decode_json );
use Data::Dumper;

my $wl = '{"creche": "crèche",
"¥": "£",
"₡": "волн"
}';

my $pattern_list = decode_json( $wl );
print Dumper $pattern_list;

##</code><code>##

#!/usr/bin/perl

use v5.14;
use warnings;
use utf8::all;

use JSON::XS qw( decode_json );
use File::Slurp qw( read_file );
use Data::Dumper;

my $wl = '{"creche": "crèche",
"¥": "£",
"&#8353;": "&#1074;&#1086;&#1083;&#1085;"
}';

open my $fh, '>', 'test_file2';
say {$fh} $wl;
close $fh;

my $pattern_list = decode_json( read_file('test_file2') );
print Dumper $pattern_list;

##</code><code>##

#!/usr/bin/perl

use v5.14;
use warnings;
use utf8::all;

use JSON::PP qw( decode_json );
use File::Slurp qw( read_file );
use Data::Dumper;

my $wl = '{"creche": "crèche",
"¥": "£",
"&#8353;": "&#1074;&#1086;&#1083;&#1085;"
}';

open my $fh, '>', 't2';
say {$fh} $wl;
close $fh;

my $pattern_list = decode_json( read_file('t2') );
print Dumper $pattern_list;