$a = "19600326";
$a =~ s/(\d{4})(\d{2})(\d{2})/$1-$2-$3/;
print "$a\n";