cat INFILE | perl -ne '$ln=$_;@x=split(/","/); @a=split(/","/, $ln,8);@b=splice(@a,0,7); $l=join("\",\"", @b); $r=join("\",\"", splice(@x,8)); print "$l\",\"10\",\"$r"'
Это пример, который меняет 10-й столбец на «10». Я предпочитаю это, поскольку мне не нужно считать соответствующие скобки, как в методике sed.