Select Code to Download

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

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

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

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

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

$ 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