perl -lane '@F[0,1,2] = ("") x 3; print "@F"'
perl -lane 'splice @F, 0, 3, ("") x 3; print "@F"'