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

##</code><code>##

my $string = chr(174);

my  $contents =~ /$x/\&reg;/g;