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

##</code><code>##

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

##</code><code>##

$ perl -E 'my @x = ("A", "B\n", "C\r", "D\r\n"); for (@x) { say ord for split //; }'
65
66
10
67
13
68
13
10

##</code><code>##

$ perl -E 'my @x = ("A", "B\n", "C\r", "D\r\n"); for (@x) { chomp; say ord for split //; }'
65
66
67
13
68
13

##</code><code>##

$ perl -E 'my @x = ("A", "B\n", "C\r", "D\r\n"); for (@x) { s/\R$//; say ord for split //; }'
65
66
67
68

##</code><code>##

$ perl -E 'my @x = ("A", "B\n", "C\r", "D\r\n"); for (@x) { s/[\r\n]*$//; say ord for split //; }'
65
66
67
68