$ 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