find -name '*FOO*' -maxdepth 1 -print0 | xargs -r0 perl -MFile::Copy -
+e 'for(@ARGV){ $a=$_; s/FOO/BAR/; move($a,$_) }'
[download]

(Or if you are appalled by the find syntax, it may suffice to

ls | grep FOO | xargs -r perl -MFile::Copy -e 'for(@ARGV){ $a=$_; s/FO
+O/BAR/; move($a,$_) }'
[download]

though that won't cope with pathologically named files.)

Makeshifts last the longest.