use strict;
my $input="19600326";
substr (((substr ($input,4,0) = '-'),$input),7,0)='-';
print "$input\n";
__END__
1960-03-26
[download]

CU
Robartes-