Select Code to Download

foreach (@lines) {
   next unless /start-phrase-here/ .. /stop-phrase-here/;

   # process
}

my $flag;
foreach (@lines) {
...

   # process
}