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

##</code><code>##

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