my $found; sub wanted { $found = $File::Find::name if /^eudora\.ini\z/i; } #### my ($found) = File::Find::Rule ->file ->name('eudora.ini') ->in('C:\\');