if ($filename =~ / /) {
    $newfile = $filename;
    $newfile =~ s/ /./g;