#!/usr/bin/perl

use strict;
use warnings;
use IO::Socket::INET;

my $file = 'test.log';
open(LOGDATEI,"<$file") or die $!;
seek(LOGDATEI,0,2);         #Ans Ende springen
while(1) {            #ne Schleife halt :P
    while(<LOGDATEI>) {     #Datei auslesen
        $_ =~ m/(.+?)\ (.+?)\,(.+?)\,(.+?)\,(.+?)\,(.+?)\w(.+?)\ (.+?)\ (.+?\ .+?)\ (.+)(, from )(.+)(] )(.+)/;
        print $2;    #2. Wert ausgeben
    }
    sleep 1;        #Warten ca. 1 Sekunde :)
}

exit;