Select Code to Download

    my $pattern = "----- blah de blah ----";
    do_whatever($_) foreach split /$pattern/, join '', <> ;

    {
       local $/ = "----- blah de blah ----";
...
           do_whatever($this_section);
       }
    }