Select Code to Download

cprintf "There are at least %'d ways to do it!\n", 42e6;

printf "There are at least @{[commify('%d')]} ways to do it!\n", 42e6;

sub commify {
    local $_  = shift;
...
<    -1000000>
<   +1,234.50>
There are at least 42,000,000 ways to do it!