$string =~ s/(?<!\\)'/\\'/g;

##</code><code>##

$string =~ s/(?<!\\)(?=')/\\/g;