Select Code to Download

sub wanted {
    print OUT "$File::Find::dir/";  
    print OUT "$_\n";          
    }

$File::Find::dir  = /some/path/
$_                = foo.ext
$File::Find::name = /some/path/foo.ext

print OUT "$File::Find::name";

###selection criteria is a set of easy Regular Expressions:
foreach my $file1(@file1only) {
...
        print OUT $file1;
        }
}

###selection criteria is a set of easy Regular Expressions:
foreach my $file1(@file1only) {
...
        print OUT $file1;
        }
}

print OUT "LOWERCASING ALL FILE AND PATHNAMES BEFORE COMPARING.\n";
print "\n\n";

print OUT "IGNORING FILES WITH Tmp OR Temp IN PATHNAME.\n";

$file1 =~ /\btemp\W\w)/; # temp is not the filename