# Anfang tausender Punkt erzeugen 
($Zahl,$Komma)=split ",",$Zahl;
foreach(reverse split("",$Zahl)){
   $Zahlneu=" ".$Zahlneu if $x && !($x%3);
   $Zahlneu=$_.$Zahlneu;
   $x++;
}
$Komma.= "0" while (length($Komma) < 2);
$Zahlneu.=",$Komma";
$x=0 ;
# Ende tausender Punkt erzeugen