Select Code to Download

my $t = q["string (12" or 1 foot or 1') into 6" MySQL varchar"];

$t =~ s/(?<=.)"(?=.)/""/g;

print "$t\n";