Select Code to Download

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

use constant APOSTROPHE =>  "\xE2\x80\x99" ;
my $string = "wjzw’xl cowuxze.";
$string =~ s/APOSTROPHE/'/ ;

my $pos = index $string, APOSTROPHE;
substr($string, $pos, length APOSTROPHE) = q{'};

#!/usr/bin/env perl

...

    return $asciis;
}

*** BEFORE ***
$string1[abc’def’ghi’jkl]
...
*** AFTER ***
$string1[abc'def'ghi'jkl]
$string2[mno'pqr'stu'vwx]