my $zahl = "23349876496739752037607647";
1 while $zahl =~ s/^(-?\d+)(\d{3})/$1.$2/;