Select Code to Download

use strict;
use warnings;
use 5.010;
...
while (my $line = <$INFILE>) {
    print $line if $line =~ /$pattern/;
}

while (<$INFILE>) {
    
}