$s = s/'/'\\''/g;

##</code><code>##

$s =~ s/'/'\\''/g;