my $var = q("string (12" or 1 foot or 1') into 6" MySQL varchar");
     $var =~ s/(?<!^)"(?!$)/""/g;
     print "[$var]\n";

     __END__

     ["string (12"" or 1 foot or 1') into 6"" MySQL varchar"]