Select Code to Download

for ( 4 .. 6 ){
    print "$_\n";
...
        print "\t$_\n";
    }
}

my %stopwords = map { $_ => } <$excludes>;

while( <$large> ){
    print unless $stopwords{$_};
}