Select Code to Download

my $CCformatted = $card =~ s/....\K\B/-/gr;

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