Help for this page
perl -F, -lane 'print join("!",@F)' test.txt
perl -F, -ane 'print join("!",@F)' test.txt