Help for this page

Select Code to Download

Select or download this
```
return scalar reverse $num;
```

Select or download this

sub format_cc_num {
    my ($num, $spacer) = @_;
    scalar reverse join $spacer, (reverse $num) =~ /(....)/g;
}