my $number = '$12345678.90'; # dollars
$_ = reverse $number;
s/(\d{3})(?=\d)(?!\d*\.)/$1,/g;
$number = reverse $_;