{
       local $/ = "----- blah de blah ----";
       while (my $this_section = <>) {
           chomp $this_section;
           do_whatever($this_section);
       }
    }