opendir(DIR, "$dir") || die "cant open $dir $!\n";
my @filename = readdir (DIR);
foreach $filename (@filename)
  { 
  if (/ /)
    {  
    $newfile =~ s/\(.*\) *\(.*\)/\./; #this may not be exactly right
    rename($filename, $newfile);
    }
  }
closedir(DIR);