perl -ne "print if /\r/" file.txt


##</code><code>##

    perl -pe "BEGIN{binmode *STDOUT}" file.txt > file2.txt