Select Code to Download

use open ':std', ':encoding(UTF-8)';

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);
}