>perl -le"print qq{abcdef\rghi}"
ghidef