1 while ($zahl =~ s/^([+-]?\d+)(\d\d\d)/$1.$2/); # vor komma
1 while ($zahl =~ s/(\d\d\d)(\d+)$/$1.$2/); # nachkomma