Select Code to Download

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