ls *FOO* | perl -ne 'chomp; $o=$_; s/FOO/BAR/; rename $o,$_'