#!/usr/bin/perl
use strict;
use warnings;

use PerlIO::via::AnyCRLF;

open my $f, "<:crlf:via(AnyCRLF)", "le.txt" or die $!;

print while <$f>;