perl -F"\t" -lane 'munge(@F); print join($MAGIC_F_VAR, @F)' file