DB<105> p $str =~ s/ (?<=[^"\n]) \t (?=[^"\n]) /***/gxr
	start***middle1	"quote1***quote2"	middle2***end	
	start***middle1	"quote1***quote2"	middle2***end