my $infile = "some_indeterminate_kindof.txt";
open( IN, "<", $infile ) or die "$infile: $!\n";

my @raw_lines = <IN>;
close IN;

s/[\r\n]+$// for ( @raw_lines );  # "chomp" for both dos and unix

my @text_lines = map { split /\r+/ } @raw_lines;  # for (old or oddball) mac files