>perl -le"print qq{aaaaaaaa\rbbbbb}"
bbbbbaaa