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

##</code><code>##

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