return scalar reverse $num;

##</code><code>##

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