Select Code to Download

 perl -e 'print ord(shift) . "\n"' "’"

$in{'content'} =~ s/\x92/’/g;

# Somewhere in an init function I define the hex value => string mappi
+ng
# I find it easier to edit this way
...
    # And then later when I need to do the replacing:
    $data =~ s/$msword_re/$msword_replace{$1}/g;