<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>