perl -lne '$. == 1 || print join ",", (split/,/)[0 .. 3]' $TEMPDIR/rfplan.1 >> $TEMPDIR/rfplan.2