&commify($x);#Robust - Does all size numbers

sub commify {
local $_ = shift;
1 while s/(-?\d+)(\d{3})/$1,$2/;
return $_;
}