$number='1234567890.01';
$number =~ s/(\d)(?=(\d{3})+(\D|$))/$1\,/g;