open (FILE, "foo.txt"); my @lines = ; close FILE; #### open (FILE, "foo.txt"); my @words = map { split } ; close FILE; #### my @words = map { split(' ', $_) } ; #### s/[.,!\?]\B//g #### open (FILE, "foo.txt"); my @words = map { s/[.,!\?]\B//g; split; } ; close FILE; #### open (FILE, "foo.txt"); my @lines = map { s/[.,!\?]\B//g } ; close FILE; #### open (FILE, "foo.txt"); my @lines = map { s/[.,!\?]\B//g; $_; } ; close FILE; #### open (FILE, "foo.txt"); my @lines = map { chomp; $_; } ; close FILE; #### open (FILE, "foo.txt"); my @lines = ; chomp(@lines); close FILE; #### Benchmark: timing 100 iterations of chomp, map... chomp: 31 wallclock secs (29.17 usr + 0.54 sys = 29.71 CPU) map: 37 wallclock secs (34.63 usr + 0.59 sys = 35.22 CPU)