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

##</code><code>##

Wide character in print at /usr/share/perl/5.8/Test/Builder.pm line 1275.
# unicode characters here
# No tests run!