Bash: Remove spaces from filename

Some people use spaces in file names, silly I know. Remove them!

find .|while read file;do mv "${file}" $(echo "${file}" | perl -ne 's/ /_/g;print;');done