# Dateiname
my $filename = "/home/catherina/logfile.log";

#Datei zum lesen öffnen
open(my $fh, "<", $filename) or die "Open schlug fehl: $!";

# Alle Daten in Array einlesen
my @logdaten = <$fh>;

#Datei schließen
close ($fh);

# jede "Zeile" aus Logdaten auswerten
for my $zeile (@logdaten) {

  # 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 STDERR "T1: $zeitstempel1", "\n", "T2: $zeitstempel2", "\n";

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

  # weiterer Code, der irgendwas mit den extrahierten Zeitstempeln macht
}