my ($year,$month,$day,$hours,$minutes,$seconds,$milliseconds) = split("\D",$doc_date);