perl -e "chomp(@F=<>); print join',',@F" file

##</code><code>##

perl -pe "tr/\n/,/" file

##</code><code>##

perl -l0054pe '' file

##</code><code>##

perl -pe "eof or tr/\n/,/" file