find ./ -name \*\ \* -exec perl -e ' for (@ARGV){$new=$_;$new=~s/\s+/_/g;rename($_,$new);}' "{}" \;