Select Code to Download

foreach my $filename (sort keys %mycorpus) {
  my $titles = '';
...
      
  }
}

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

foreach my $filename (sort keys %mycorpus) {
  my $titles = '';
...
      print  "$titles \n";    
  }
}