Finde den Fehler nicht...

[gant]

Hallo

Hoffe, jemand von Euch kann mir helfen. Ich haben folgenden Skript-Schnipsel:

if (-e "D:\MSIIS\Log\w3c\W3SVC1\ex".$Jahr.$Monat.$Monatstag.".log") {
 open(LOG, "<D:\MSIIS\Log\w3c\W3SVC1\ex".$Jahr.$Monat.$Monatstag.".log");
 @file = <LOG>;

foreach  (@file) {
  $_ =~ s/T /export_/T /export/export_/g;
  $_ =~ s/T /processnet/export_/T /export/export_/g;
  print(LOG $_);
 }

close(LOG);

}

Wenn ich das Skript auszuführen versuche, erhalte ich zwei Syntaxfehler, einer in der IF-Zeile near { und den zweiten in der (hier) letzten Zeile near }. Alle Variablen sind sauber Deklariert und wo notwendig auch schon vor dem Ausschnitt initialisiert.

Kann mir jemand sagen, wo das Problem liegt?

Besten Dank und Gruss