Select Code to Download

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

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