Help for this page
use open ':std', ':encoding(UTF-8)';
use utf8; use encoding ':std', ':encoding(UTF-8)'; ... my $got = decode_json($json)->{text}; printf("U+%v04X %s\n", $got, $got); }