$ perl -pE 's/^([^"]+")([^"]+)/$1 . $2 =~ y{\t}{,}r/e' a b "x1 x2" a b "x1 x2"