C:\>perl -le"print $/" | od -tacx1
0000000  cr  nl  cr  nl
         \r  \n  \r  \n
        0d 0a 0d 0a
0000004

C:\>perl -le"print unpack q,H*,,$/" | od -tacx1
0000000   0   a  cr  nl
          0   a  \r  \n
        30 61 0d 0a
0000004

C:\>