$ perl -e 'my $x = "abc\r"; print "|$x|"'
|abc