if (/ /) {
    $newfile =~ s/\(.*\) *\(.*\)/\./;