find . | perl -ne'chomp; next unless -e; $oldname = $_; s/aaa/bbb/; ne +xt if -e; rename $oldname, $_' [download]
In reply to Re: rename subdirectories by perlfan in thread rename subdirectories by shness