perl -pe 's/(^...)(....)/$1,$2,/'
perl -F, -ane 'print ",$F[3]\n"'