in reply to Extracting information from multiple files in a directory

How about using the  .. operator? I mean something like that: 
while (<INPUT>) {
  if(/<notes[^>]*>/i .. /<\/notes>/i){
    strip the tags;
    print;
  }
}

[download]

In Section Seekers of Perl Wisdom