If you'd used use strict, it might have brought to your attention the fact that you are attempting to split a variable, $file, which you haven't declared.

If you'd used use warnings, it would have told you that $file is undefined when you attempt to split it.

In any case, @file = <FILE> has already read the file into an array of lines. So no split is required and you can simply: foreach (@file) Note, however that the lines in the array have the newline at the end, so you may want to either chomp the individual lines, or chomp the entire array.

Mind you, it's possibly simpler to:

open FILE, $ARGV[0]  or die "Can't open $ARGV[0] for reading: $!\n";

while (<FILE>){
  print "Line: $_";
}
[download]

When you slurp all lines of your file into @file, each element of the array should contain one line ending in a newline character. You can prove this by printing the contents of the array as follows:

use Data::Dumper;
print Dumper(\@file);
[download]

If you then want to remove the newline characters, use chomp:

chomp @file;
[download]

Depending on the size of your log file, and the specs of your machine, reading the entire log file into an array may not be such a good idea. This is because memory must be allocated for the entire file. And if you happen to be dealing with a multi-gigabyte file, this may become a problem.

Generally, a better approach is to read the file line by line, and process each line as you go. For this, a while loop can be used. Example:

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

# 3 argument form of open using a lexical variable is considered bette
+r practice
# see perldoc -f open
open my $file, '<', $ARGV[0] or die "Can't open $ARGV[0] for reading: 
+$!\n";

while (my $line = <$file>) {
  print $line;
  chomp($line);   #if you need to
  
  # any other processing....
}
[download]

Hope this helps,
Darren :)