$string =~ s/([^\])\'/$1\\\'/g;