use Encode;   # (added this as an update -- you need it)
...

$_ = decode( 'utf8', $_ ); # make sure perl knows this is utf8 data

s/\x{2019}/'/g;   # put in the old-fashioned apostrophe