Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
       reverse map {++ $ct % 3 ? $_ : ($_, q{,})}
       reverse split m{}, $_[0];
}
  2. or download this
                      12
               1,234
           1,234,567
       1,234,567,890
  3. or download this
    sub comma3
{
...
       }
       reverse split m{}, $_[0];
}