Gentlemen, $ perldoc perlvar|col -b|grep SEPARATOR $INPUT_RECORD_SEPARATOR $OUTPUT_FIELD_SEPARATOR $OUTPUT_RECORD_SEPARATOR... So please mention next to $OUTPUT_RECORD_SEPARATOR why there is no $INPUT_FIELD_SEPARATOR, i.e., probably say "use split()", or perl -aF.
OK, here's the (post formatted, sorry) diff: printed between fields. (Mnemonic: what is printed when there is a "," in your print statement.) + If you were looking for an $INPUT_FIELD_SEPARATOR, + sorry. See perldoc -f split, or -a -F on perlrun. IO::Handle->output_record_separator EXPR $OUTPUT_RECORD_SEPARATOR $ORS