Select Code to Download

#!perl
use strict;
...

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

Wide character in print at try2.pl.txt line 6.
aΓîób