#!/usr/bin/perl

use PerlIO::via::AnyCRLF;

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

print while <$f>;