if ( $fs eq '/' ) { # only if the root directory
    my_find( $fs, 0 );
}
elsif ( $fs =~ m|^/\w+| ) { # matches /var
    my_find( $fs, 1 );
}
else {
    # everything else which we ignore
    # /.ssh
    # tmp
    # working/data
    # /-etc
}

sub find_me {
    my @directory = shift;
    # play nicely with others
    local $File::Find::prune = shift;
    <snip>
}