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