sub format_cc {
   my ($n, $s) = @_;
   scalar reverse join $s, (reverse $n) =~ /(.{1,4})/g;
}