my ($filename, $newfile);
foreach $filename (readdir(DIR))
{
    ($newfile = $filename) =~ tr/ /./;
    rename($filename, $newfile);
}