for ( $number )
{
  /\./
    ? s/(?<=\d)(?=(\d{3})+(?:\.))/,/g
    : s/(?<=\d)(?=(\d{3})+(?!\d))/,/g;
}