ls *FOO* | perl -MFile::Copy -ne 'chomp;(my $x = $_) =~ s/FOO/BAR/;move($_,$x)'