#!/usr/bin/perl

# http://perlmonks.org/?parent=1147312;node_id=3333

use strict;
use warnings;
$| = 1;

my $card = '1234543267679898';

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

print $CCformatted, "\n";