On a side note, you could use perl's autosplit feature to golf this:

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