#!/bin/env perl

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

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