use strict;
use warnings;

use Data::Dumper qw( Dumper );

$Data::Dumper::Useqq  = 1;
$Data::Dumper::Terse  = 1;
$Data::Dumper::Indent = 0;

my $s = chr(0xC9);
utf8::downgrade($s);
print(Dumper(pack('V/a*', $s)), "\n");
utf8::upgrade($s);
print(Dumper(pack('V/a*', $s)), "\n");

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

##</code><code>##

"\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???

##</code><code>##

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