while ( $mycorpus{$filename} =~ /date:#(\d+)#/g ) {
        $date = $1;
    }