Select Code to Download

foreach my $n (@natures){
...
 print OUT $_ if $_ =~ /$n/;
}
}

while(<FILE>){
foreach my $n (@natures){
...
}
}
}