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

##</code><code>##

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