<perl>
sub FormatZahl {
 my ($Zahl, $Stellen) = @_;
 my ($s, $i) = ("", 0);
 
 $Zahl = sprintf("%.$Stellen"."f", $Zahl) if ($Stellen > 0);
 
 ($Zahl, $Komma) = split(/\./, $Zahl);
 
 for ($i = 1; $i <= length($Zahl); $i++) {
  $s = (($i % 3 == 0) && ($i < length($Zahl)) ? "." : "") . substr($Zahl, -$i, 1) . $s;
 }
 $Komma = "," . $Komma if length($Komma);
 return $s . $Komma;
}
</perl>