use constant APOSTROPHE =>  "\xE2\x80\x99" ;
my $string =~ s/APOSTROPHE/'/ ;