#!/usr/bin/perl -w
use strict;
my $number='12345.67890'; # with commas, should be: 12,345.67890 
print "N=$number\n";
$number =~ s/(\d)(?=(\d{3})+(\D|$))/$1\,/g;
print "N=$number\n";