Edit: note the flaw pointed out by Hautex. I did not understand the question correctly, and did not check uniqueness of the correct title.

How about this loop?

foreach my $filename (sort keys %mycorpus) {
  my $titles = '';
  my $counter = 0;
    while ($mycorpus{$filename} =~ /title:#(.*?)#\s*$/gm){
      if($counter++){
        last if $counter++; # skip the rest of the matches
        # can also be used to print warnings about multiple titles
        # and check $1 against $titles if they are the same, or not
      }else{
        $titles = $1; # first match, we can store it,
        print  "$titles \n"; # or print it out
      }
      
  }
}

[download]

the output is 

this is text I want 1 
this is text I want 2 
this is text I want 3

[download]

You can also replace the while with an if, and then it just matches the first title# .

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

[download]

The output is the same. I think you wanted the multiline regexp modifier to match a newline inside your filedump string.

edit: better structure to allow more post-work (commented what can be done there). Did also remove the /g (go) modifier in the "if" example as it is not needed there.

In reply to Re: Remove all duplicates after regex capture by FreeBeerReekingMonk
in thread Remove all duplicates after regex capture by Maire

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.