-$Monat+=1;
-$Jahrestag+=1;
-$Monat = $Monat < 10 ? $Monat = "0".$Monat : $Monat;
-$Monatstag = $Monatstag < 10 ? $Monatstag = "0".$Monatstag : $Monatstag;
-$Jahr+=1900;
-my @Wochentage = ("Sonntag","Montag","Dienstag","Mittwoch","Donnerstag","Freitag","Samstag");
-my @Monatsnamen = ("","Januar","Februar","März","April","Mai","Juni","Juli","August","September","Oktober","November","Dezember");
-$datum=$Wochentage[$Wochentag].", der ".$Monatstag.".".$Monat.".".$Jahr." - ";
+$Monat += 1;
+$Jahrestag += 1;
+$Monat = $Monat < 10 ? $Monat = "0" . $Monat : $Monat;
+$Monatstag = $Monatstag < 10 ? $Monatstag = "0" . $Monatstag : $Monatstag;
+$Jahr += 1900;
+my @Wochentage = ("Sonntag", "Montag", "Dienstag", "Mittwoch",
+ "Donnerstag", "Freitag", "Samstag");
+my @Monatsnamen = ("", "Januar", "Februar", "März",
+ "April", "Mai", "Juni", "Juli",
+ "August", "September", "Oktober", "November",
+ "Dezember");
+my $datum =
+ $Wochentage[$Wochentag] . ", der "
+ . $Monatstag . "."
+ . $Monat . "."
+ . $Jahr . " - ";
+