perl -ane 'splice @F, 5, 1; print "@F\n";'