perl -i.bak -pe 's/\r(?!\n)/\n/g; tr/\r//d' test.dat

##</code><code>##

perl -i.bak -lpe 'tr/\r//d' test.dat