Select Code to Download

while ( <DATA> ) {
  if ( /(foo)|(bar)|(baz)/ ) {
    print "Found $+ line $.\n";
...
Stuff
The quick brown baz jumps over the lazy bar
foo

use strict;
use warnings;

...
  }
  $. = 0 if eof;
}