if ($_ =~ s/ /_/g) {
        # rename
    } else {
        return 1
    }


##</code><code>##

    if ($_ =~ s/ /_/g) {
        # rename
    }