perl -F, -ane 'print join("!",@F)' test.txt