$a =~ s/'/\\'\\'/g && print "Found a ' in \$a\n";