#!perl
# copy fixed filename

opendir DIR, ".";
@filelist = readdir DIR;
closedir DIR;

$word = "¥·¥¹¥Æ¥à";

foreach $file (@filelist)
{
	if (-d $file){
		print "$file    ---->    Directory.\n";
	} elsif ($file =~ /$word.*\((.*)\)/){
		system("copy $file $1.xls");
	}
}
exit;