$number='1234567890.0123456789'; # with commas, should be "1,234,567,890.01
$number =~ s/(\d)(?=(\d{3})+(\D|$))/$1\,/g;