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

##</code><code>##

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