Select Code to Download

my $message= '';
while( <> ) {
...
}
print $message
    if(  $message  =~ /keyword/  );

my $line= <>;
while( defined $line ) {
...
    print $message
        if(  $message  =~ /keyword/  );
}