###selection criteria is a set of easy Regular Expressions:
foreach my $file1(@file1only) {
    unless (($file1 =~ "tmp") or ($file1=~"temp") or ($file1 =~ "recycler") or ($file1 =~ "history")) { 
        print OUT $file1;
        }
}