Help for this page
$ perl -e 'print "\r"' | od -t xC -a 0000000 0d + cr
$ perl -e 'print "\r"' | perl -e '$_=<>; print "got CR\n" if (/\r/)' | + od -t xC -a 0000000 67 6f 74 20 43 52 0a g o t sp C R nl