use warnings;
use strict;

my $contents = 'foo®bar';
$contents =~ s/®/\&req;/g;
print "contents=:$contents:\n";

##</code><code>##

contents=:foo&req;bar: