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

# outputs:
# cat’s