$ 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