# snip..
   ( my $newfile = $_ ) =~ s/old/new/;
   rename("$base/$_", "$base/$nwewfile");
# snip..