#!/usr/bin/perl



my $str1 = $ARGV[0];

my $str2 = $ARGV[1];

my $mydir = "./";         #假定文件都在当前目录



opendir (DIR, $mydir);

@dirs = readdir(DIR);

closedir DIR;



foreach  (@dirs) {

    if ($_ =~ m/^$str1(.w+)*$/) {

        rename ("$str1$1", "$str2$1");

    }

}