Select Code to Download

use strict;
use warnings;
...
print(Dumper(pack('V/a*', $s)), "\n");

print(Dumper(pack('V/a*', "\x{C9}\x{2660}")), "\n");

"\1\0\0\0\311"             # Ok
"\1\0\0\0\x{c9}"           # Ok
"\2\0\0\0\x{c9}\x{2660}"   # Does this make sense???

"\1\0\0\0\311"             # Ok
"\1\0\0\0\303"             # XXX
"\2\0\0\0\303\242"         # XXX