#!/usr/bin/perl -p
sub commas {
	my ($n) = @_;
	1 while $n =~ s/(\d)(\d{3})($|,)/$1,$2$3/;
	return $n;
}
s/(\d+)/commas($1)/ge;