Select Code to Download

my $data = '19600326';

print join('-', unpack('A4A2A2', $data));

my $data = '19600326';

printf ('%s-%s-%s', unpack('A4A2A2', $data));