my $date    = '19600326';

    my $newdate = join '-', $date =~ /(....)(..)(..)/;