my $CCformatted = join '-', $card =~ /..../g;