perl -F, -lane 'BEGIN { <>; $, = "," } print @F[0 .. 3]' $TEMPDIR/rfplan.1 > $TEMPDIR/rfplan.2