print chr(200);
print chr(1000);

##</code><code>##

print chr(200) . chr(1000);

##</code><code>##

>perl -we"no warnings qw( utf8 ); print chr(200); print chr(1000);" | perl -nE"say length;"
3

>perl -we"no warnings qw( utf8 ); print chr(200) . chr(1000);" | perl -nE"say length;"
4