F="\t" perl -F$F -line "munge(@F); print join($F, @F);" file