/user/user1/foo.bar
/user/user1
/user/user2
/user/user4
/user/user500/foo.bar
/user/user500
/user

##</code><code>##

/user
/user/user1
/user/user1/foo.bar
/user/user2
/user/user4
/user/user500
/user/user500/foo.bar

##</code><code>##

sub wanted {
    my $depth = $File::Find::dir =~ tr{/}{/};
    $File::Find::prune = 1
        if $depth == 1;
    print("$depth $File::Find::name\n");
}