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");