SZ
Size: a a a
SZ
AP
W
ВВ
МК
AK
AP
AK
W
SZ
МК
SZ
VG
МК
use strict;
use warnings;
use utf8;
use open ":std", ":utf8";
my $人 = 'Сергей';
print "$人,你好!\n";
МК
SZ
use strict;
use warnings;
use utf8;
use open ":std", ":utf8";
my $人 = 'Сергей';
print "$人,你好!\n";
LESSCHARSET= LC_ALL=C less main.pl
МК
LESSCHARSET= LC_ALL=C less main.pl
SZ
МК
SZ