1,000 anyone?

[Bill Jones]

Given -

++$number while $number =~
s/^([-+]?\d+)(\d{3})/$1,$2/,
print "$number\n";


Question:
Why does it keep starting over at 1,000 ???

Enjoy!
-Sx-  :]