Old perl ?

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

Most of my PP hours were in Citabria's, but that was 41? years ago :)