$number =~ s/(?<=\d)(?=(?:\d\d\d)+\b)/,/g;