use strict;
use warnings;
use Test::More qw(no_plan);
binmode STDOUT, ":utf8";
binmode STDERR, ":utf8";
my $data = "\x{263a}xxx" . chr(0x05d0) . "\x{20ac}"; diag($data);