use strict;
use warnings;
use English '-no_match_vars';

local($INPUT_RECORD_SEPARATOR) = "\r\n";

open my $fh, "./MyTsv.txt" or die $!;

while(<$fh>) { print;}