C:\>type test.txt
a,b,c,d,e,f
a,,c,,e,
a,b,c,,,

C:\>perl -pe "split/,/;$_=join'!',@_" test.txt
a!b!c!d!e!f
a!!c!!e!
a!b!c!!!