$ perl -le"print qq!asd\rfrog!"
frog

$ perl -le"print qq!asd\rfrog!" |hexdump
00000000: 61 73 64 0D 66 72 6F 67 - 0D 0A                   |asd frog 
+ |
0000000a;

$ perl -le"print qq!asd\rfrog!" |od -tacx1
0000000   a   s   d  cr   f   r   o   g  cr  nl
          a   s   d  \r   f   r   o   g  \r  \n
        61 73 64 0d 66 72 6f 67 0d 0a
0000012

$
[download]