# ungetestet
my @logs = map {
  unless (m/^\./xms) {
    $_ =~ s/\.log//xms;
    $_
  }
  else {
    ()
  }
} readdir $LOGDIR;