# read file
my $file_content;
{
    local $/ = undef; # no input data record separator --> file content will be stored in one scalar
    open(my $fh, "<", "le.txt");
    binmode($fh);

    $file_content = <$fh>;
    close($fh);
}

(my $space_file_content = $file_content) =~ s/(\r\n)|(\n)|(\r)/ /g;
for my $line (split(/ /, $space_file_content))
{
	print $line . "\n";
}