H:\tmp\demo>perl -MWin32::autoglob -MData::Dumper -E "$Data::Dumper::Useqq=1; for $fn (@ARGV) { open $f,'<',$fn or die; @lines=<$f>; chomp @lines; say qq<$fn:>; say Dumper(\@lines); }" *.txt linux-file.txt: $VAR1 = [ "A simple file generated", "on Linux with Unix", "line endings." ]; mac-file.txt: $VAR1 = [ "A simple file generated\ron Windows with Old Mac\rline endings.\r" ]; windows-file.txt: $VAR1 = [ "A simple file generated", "on Windows with Windows", "line endings." ]; H:\tmp\demo>