If you think File::Find is a little obscure, perhaps you should try the CPAN module File::Find::Rule instead. This might be one way to accomplish your goal:

use warnings;
use strict;
use File::Find::Rule;

my $path = $ARGV[0];
my $from = $ARGV[1];
my $to   = $ARGV[2];

die "You must supply a full directory path" unless (-e $path && -d $pa
+th);

my @dirs = File::Find::Rule->directory()
                           ->name("*$from*")
                           ->in($path);

for (@dirs) {
    my $orig = $_;
    s/$from/$to/g;
    rename $orig, $_ or die "Can not rename $orig to $_: $!";
}
[download]