use constant APOSTROPHE =>  "\xE2\x80\x99" ;
my $string = "...";
$string =~ s/(?{{ APOSTROPHE }})/'/ ;