my @dels = ();
  opendir DIR, DB_DIREC or die "can't open direc ".DB_DIREC.": $!";
  for (readdir DIR) {
    if (/^(__[-!#.0-9@-Z_a-z]+)$/) {push @dels, DB_DIREC."/$1"}
  }
  closedir DIR;
    
  if (@dels) {unlink @dels}