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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

###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;
        }
}

##</code><code>##

###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;
        }
}

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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