Select Code to Download

foreach my $file2 (@file2only) {
  unless ( ( $file2 =~ "tmp" ) or ( $file2 =~ "temp" ) or ( $file2 =~ 
+"recycler" ) or ( $file2 =~ "history" ) ) {
    print OUT $file2;
  }
}

foreach my $file2 (@file2only) {
...
    print OUT $file2;
  }
}

foreach my $file2 (@file2only) {
  unless (    ( $file2 eq "tmp" )
...
    print OUT $file2;
  }
}

foreach my $file2 (@file2only) {
  unless ( $file2 =~ /^tmp|temp|recycler|history$/ ) {
    print OUT $file2;
  }
}