my $t = q["string (12" or 1 foot or 1') into 6" MySQL varchar"];
$t =~ s/(?<=.)"(?=.)/""/g;

##</code><code>##

my $t = q["string (12" or 1 foot or 1') into 6" MySQL varchar"];
substr($t, 1, -1) =~ s/"/""/g;