perl -F"$F" -i -wlpe 'munge(@F); $_ = join("'$F'",@F);'