!/usr/bin/perl -w


use strict;

my $dirname;
$dirname = 'D:\test';
my $test = $ARGV[0];
my $test1 = $ARGV[1];
my $pattern = qr/$test/;
my $pattern1 = qr/$test1/;

opendir(DIR, $dirname) or die "Can't opendir $dirname: $!";

while ( defined (my $file = readdir DIR) ) {

        next if $file =~ /^\.\.?$/;
        my $new = $file;

        $new =~ s/$pattern/$pattern1/;
        rename($file,$new)
}