Select Code to Download

{
    local $/ = '***END***';
...
       print if ( /mykeyword2|mykeyword4/ );
    }
}

     local $/ = "***END***\n";  # or "***END***\r\n"

#!/usr/bin/perl

...
again several lines
containing target data
***END***