Select Code to Download

$ hexdump -C foo.txt 
00000000  46 6f 6f 0d 42 61 72 0d  51 75 7a 0d              |Foo.Bar.Q
+uz.|
...
    print Dumper($_);
}
close $fh;

$VAR1 = [
          "unix",
          "crlf"
        ];
$VAR1 = "Foo\rBar\rQuz\r";

# 5.6.2:
$VAR1 = "Foo\rBar\rQuz\r";
...
          "perlio"
        ];
$VAR1 = "Foo\rBar\rQuz\r";

use warnings;
use strict;
...
    ...
}
close $fh;