Or the regex option

my @ar = qw(foo 19600326 bar);
$ar[1] =~ s{^(\d{4})(\d{2})(\d{2})\z}($1-$2-$3);
print $ar[1], $/;

__output__

1960-03-26
[download]

HTH

_________
broquaint