ben@Tyr:~$ printf "a,b,c,,,"|perl -F, -ane 'print 0+@F, "\n"'
3
ben@Tyr:~$ printf "a,b,c,,,\n"|perl -F, -ane 'print 0+@F, "\n"'
6