my $datum = sprintf "%02s.%02s.%4s", $tag, $monat, $jahr;