my $string = chr(174);

my  $contents =~ /$x/\®/g;