TIMTOWTDI:

my $date = '19600326';

my $first  = join '-', unpack 'a4 a2 a2', $date;
my $second = sprintf '%s-%s-%s', unpack 'a4 a2 a2', $date;
[download]

After Compline,
Zaxo