use strict;
use warnings;

print 'Please enter your card number';
chomp(my $inp = <>);
$inp =~ s/(\d{4})(\d{4})(\d{4})(\d{4})/$1 $2 $3 $4/;
print $inp,"\n";