#!/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;