use File::Find;
my $myRoot;
$myRoot = "/home/50000";

find(\&myFileFilter, $myRoot); # ab Verzeichnis $myRoot suchen

sub myFileFilter
{
    my $name = $File::Find::name;
    if($name =~ /10047$/ and -d $name){
       print $name;
    }
}