perl -pe 's/^([^"]+)"(.+)"/($x = $2) =~ y{\t}{,}s;"$1\"$x\""/e'