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