join(t, @F) #### F=' ' # Enter a tab here. perl -F"$F" -i -wlne "munge(@F); print join('$F',@F);" file #### perl -F"$F" -i -wlpe 'munge(@F); $_ = join("'$F'",@F);'