my @filesfound;
find( sub {eval( "$wanted")
          and push @filesfound, $File::Find::name },
      "$start" );