...

binmode(STDOUT, ':utf8');
print("$chars_src\n");
binmode(STDOUT, ':bytes');
print("$bytes_dst\n");