Try this, it uses a glob to read in a list of files that match the desired directory and name structure, generates the new name from the old one, and then renames them. In this case we rename all the files that end with 'pl' so that they instead end with 'bak';

my $dir = "c:/";

while (<$dir*.pl>) {
    my ($old,$new);
    $old = $new = $_;
    $new =~ s/pl$/bak/;
    rename $old, $new;
}
[download]

Hope this helps

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print