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