set PERLIO=:raw
perl -ne "print if /\r/" file.txt
[displays lines]