my @string;

open(SYSLOG, "/tmp/log100lines") or die "Can't open file: $!\n";

foreach my $line (<SYSLOG>) {
        chomp $line;
        push @string, $line
}

  print $string[4],$/;

##</code><code>##

open(SYSLOG, "/tmp/log100lines") or die "Can't open file: $!\n";

foreach my $line (<SYSLOG>) {
        chomp $line;
        my @string = split(/ /, $line);  ## remove the function join
        print "$string[4]\n";
}

##</code><code>##

open my $fh, '<', "file_to_open" or die "can't open file: $!";

##</code><code>##

while(<$fh>){
 ...
}