lookup preprocess in File::Find, use it, something like

find( {
  preprocess => sub { my @foo = grep { ! /^_whatever/  } @_; @foo; },
  wanted => \&wanted,
}, 'rhebarb' );
[download]

MJD says "you can't just make shit up and expect the computer to know what you mean, retardo!"

I run a Win32 PPM repository for perl 5.6.x and 5.8.x -- I take requests (README).

** The third rule of perl club is a statement of fact: pod is sexy.