my $string = q{"string (12" or 1 foot or 1') into 6" MySQL varchar"}; local $_ = 1; while( ($_ = index($string,'"',$_)) !=-1 and ++$_ < length($string) ){ substr($string,$_++,0,'"'); }