Here is another way to do it:

    my $date    = '19600326';

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

--
John.