use strict;
use warnings;

# Daten"zeile"
my $zeile = '====> 5d2a6f8c-0c97-71e1-1d93-0acece150000 e45aaba0-098f-71da-0bcb-0acece140000 1 -1038486904 18 scholl.btx.dtag.de 1 -1038486904 18 scholl.btx.dtag.de 1 0 4 0 0 0 1321038004 1321038004 0 4 12 0 0 0 0 0 12 0 0 0 0 0 1321038004 3 OpC 24 Syslog (10.x/11.x HP-UX) 13 gethostbyaddr 2 OS 0 0 0 0 56 gethostbyaddr: f-sb1-i.F.DE.NET.DTAG.DE. != 62.154.3.85 87 Nov 11 19:58:38 scholl syslog: gethostbyaddr: f-sb1-i.F.DE.NET.DTAG.DE. != 62.154.3.85 0 0 0 0 0 0 0 0 0 0 0 0 5d2a6f8c-0c97-71e1-1d93-0acece150000 -3600 0 0 0 48 AUTOKEY:e4472fea6acec54ac834cd96a1107b1eacc5e5cf 0 1321038004 1 CMA 14 condition_name 22 gethostbyaddr messages';

# Daten nach Leerzeichen aufsplitten und an Array zuweisen
my @data = split /\s/,$zeile;

# Nur die 18. und 19. "Datenfeld" aus dem Datenarray holen
my ($zeitstempel1, $zeitstempel2) = @data[17,18];

# Zum Debug die beiden Daten ausgeben
print "T1: $zeitstempel1", "\n", "T2: $zeitstempel2", "\n";

# Zum Debug die beiden Daten im GMT Zeitformat ausgeben
print "T1: " . localtime($zeitstempel1), "\nT2: " . localtime $zeitstempel2, "\n";