Select Code to Download

my @stuff;
while (<>) {
...
    else { push @stuff, $_;  }
}
print grep { /keyword/ } @stuff;

my $last_entry;
while (<>) {
    if (/^\s/) {
...
    }
    print $last_entry if $last_entry =~ /keyword/ && eof(IN);
}