Select Code to Download

$number =~ s/(\d+)(\.\d+)?/bea_int($1).$2/eg;      
sub bea_int {
...
   $kk =~ s/(\d)(?=(\d{3})+(\D|$))/$1\,/g;
   return $kk;
}