perl -F, -lapi.bak -e'$_=join(",",@F[0..3,3,4,4..$#F])' data.txt