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

my $filename='result.txt';
open( my $fh, '<', $filename ) or die "Can't open $filename: $!";

while ( my $line = <$fh> ) 
{
    $line =~ s/\s*$//;  # remove any line ending char(s)
                        # this works on Windows, Unix and old Apple

    print "$line\n";    # print with line endings for this platform
}

close $fh;
[download]

The substitution expression is to get rid of any combination of
<line feed>,<carriage return>.<space> at end end of the line.

Unix uses <LF> to separate lines.
Windows uses <CR> then <LF> to separate lines. Old Apple uses <CR>.

The print uses the line endings for the platform that you are using.