my $time= ( $doc_date =~ /\s(\d+:\d+):/ );