Perl Oneliner: rename files in directory recursively
Here is a very simple but efficient solution inspired by this article:
find | grep IMDB | Perl -ne 'chomp; next unless -e; $orig = $_; $move = 0; if (s/imdb_13/imdb13/) { print "move $orig to $_ ...\n"; system "mv $orig $_"; }'