s/(')/\Q$1$1/g;  # Or
s/'/\Q''/g;

##</code><code>##

s/(')/quotemeta "$1$1"/eg;