my $x = chr(174);
binmode STDOUT, ':utf8';
print "x has length ", length($x), " >>$x<<\n";

##</code><code>##

x has length 1 >>®<<

##</code><code>##

my $x = chr(194).chr(174);
binmode STDOUT, ':bytes';
print "x has length ", length($x), " >>$x<<\n";

##</code><code>##

x has length 2 >>®<<

##</code><code>##

use Encode;
my $code_points = encode('utf8', $x);