$ perl -e '
    my @lines = ("1\r", "12\r", "123\r");
    print for @lines;
'
123

##</code><code>##

$ perl -e '
    my @lines = ("1\n", "12\n", "123\n");
    print for @lines;
'
1
12
123