foreach my $filename (sort keys %mycorpus) {
  my $titles = '';
    if ($mycorpus{$filename} =~ /title:#(.*?)#\s*$/m){
      $titles = $1;
      print  "$titles \n";	
  }
}