perl -i.bak -ne '(tr/\r//d)' test.dat

##</code><code>##

perl -i.bak -pe '(tr/\r//d)' test.dat