perl -ne '@A=split(","); print join(",", @A[0 .. 3]),"\n"' $TEMPDIR/rfplan.1 | sed '1d' >> $TEMPDIR/rfplan.2