opendir(DIR, "$dir") || die "cant open $dir $!\n";
foreach my $filename (readdir(DIR))
{
  if ($filename =~ / /)
    {
    my $newfile = $filename;
    $newfile =~ s/ +/./g;
    rename($filename, $newfile) unless $filename eq $newfile;
    }
}
closedir(DIR);