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