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