sub format_cc_num
{
    my ($num, $spacer) = @_;

    $num = reverse $num;
    $num =~ s/(.{4})/${1}${spacer}/g;
    return reverse $num;
}