You know, you can do this too:

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

Not that we're golfing or anything :-)

Oh, and you forgot your assignment to $_. Otherwise it won't print what you want