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";
}