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