Rename files with Find

Recently I needed to rename a large number of files to remove a secondary extension. I found the following example on the web and re-posted here so I do not lose it again!