$ perl b1.pl
中文
"\x{0590}" does not map to cp936 at b1.pl line 8.
"\x{0384}" does not map to cp936 at b1.pl line 8.
\x{0590}\x{0384}

$ perl b2.pl
中文
"\x{0590}" does not map to cp936 at b2.pl line 7.
"\x{0384}" does not map to cp936 at b2.pl line 7.
\x{0590}\x{0384}