#!/usr/bin/perl -w
###################################
 
use strict;
use warnings;
use diagnostics;
 
my $cc="4744760012394122";
 
$cc =~ s/(\d{4})(\d{4})(\d{4})(\d{4})/$1 $2 $3 $4/;
 
print $cc,"\n";