opendir my $LOGDIR, qq{./+logs/~$uid};
    my @logs = map (
        do {
            if($_ !~ m/^\./xms) {
                $_ =~ s/\.log//xms;
            }
        }
    , readdir $LOGDIR);
    closedir $LOGDIR;