my $c = chr 0xC9;
my $p = pack "U", 0xC9;
print 1 if $c eq $p; # 1