my $cc_num; # Intitilized elsewhere
print join ' ', unpack('A4 A4 A4 A4', $cc_num);