my @lines;
{
  local $/ = "\r\n";
  open(my $fh,"<$file") or die $!;
  my @lines = <$fh>;
  close $fh;
}