#!perl
use strict;
use warnings;

$_ = "a\x{2322}bcd\n";
print substr($_, 0, 3), "\n";

##</code><code>##

Wide character in print at try2.pl.txt line 6.
a&#915;îób