ls *FOO* | perl -MFile::Copy -ne 'chomp;(my $x = $_) =~ s/FOO/BAR/;mov +e($_,$x)' [download]
In reply to Renaming bunches of files by dragonchild