1 while $zahl =~ s/(\d+)(\d{3})/$1.$2/;