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