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