find(sub {if ($_ =~ /$tmp/){push @found, $File::Find::Name}}, $dir);
}