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],$/;