sub commify {
  local $_ = shift;
  if (/^-?(\d{4,})/g) {
    for (my $p=$+[1]; $p>$-[1]; $p-=3) {
      substr($_,$p,0) = ','
    }
  }
  return $_;
}