my $str = q|cat’s|;
$str =~ s/\x092/'/;
print "$str\n";

# outputs:
# cat’s

##</code><code>##

$str =~ tr/\x{092}/'/d;