# Konfiguration für die Anzeige der Logs. my %dateieinstellungen = (    'absoluter_dateiname.log' => {        myfunc => sub{            my $zeile = shift; # die gelesene Zeile            my $textw = shift; # Text-Widget            # Timestampd und dergleichen entfernen            $zeile =~ s/^\[.+\]//;            # Zeilen aufteilen in Fehlermeldung und Fehlerquelle, und umbrechen            $zeile =~ s/\, (referer\: http\:\/\/)/\n\t$1/;            # Fehlermeldung rot markieren.            # ???            return $zeile;        },    }, );