$ echo "\r" > crlf
$ xxd crlf
0000000: 0d0a                                     ..
$ perl -E'binmode STDIN, ":crlf"; say length <>' < crlf
1
$ perl -E'binmode STDIN, ":crlf"; say length <>' crlf  
2