Select Code to Download

$ 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