You could then redirect the output of the find to a file "listfile" for example and then use the following to rename them, assuming that every dot (more than one consecutive) being replaced by an underscore ie. 3 dots = 3 underscores:

Code:

while read L; do mv $L $(echo $L|sed '/\.\{2,\}/ {s/\./_/g}'); done < listfile

Just have to be careful that you you don't start your find with a dot as starting directory.