1 while $number =~ s/^([\+\-]?\d+)(\d\d\d)/$1.$2/;