my ($row_sub_i_esc_sq = $row[$idx]) =~ s{ ' }{\\}xmsg;
$updstmt .= $hdr[$idx]." =  '". $row_sub_i_esc_sq ."' \r\n";

##</code><code>##

(my $row_sub_i_esc_sq = $row[$idx]) =~ s{ (?= ') }{\\}xmsg;
$updstmt .= $hdr[$idx]." =  '". $row_sub_i_esc_sq ."' \r\n";