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