my $z=129464248985476.5;
$z=sprintf("%f",$z);
$z=~tr/./,/;
$z=~s/(?<=\d)(?=(?:\d{3})+,/./g;
print "$z\n";