export F=:
perl -na -F$F -e "shift @F; print join('$F', @F);" < foo