$olddate =~ /(\d{4})(\d{2})(\d{2})/ and
$newdate = "$1-$2-$3";