head -1 file.txt | perl -F, -lane 'print join(",",@F);'

##</code><code>##

 head -1 file.txt | sed -e 's/$/x/' | perl -F, -lane 'print join(",",@F[0..$#F-1]);'