how to rename files that contain chinese characters

[eventual]

Hi,
I am using windows operating system.
I wanted to rename some files within certain directories and my files contain 
chinese characters. After renaming, I could not see those chinese characters, 
what must I do to retain those chinese characters. Below is the file name and 
the script. Thanks
file name = 141有多少爱可以重来 迪克牛仔.mp3
after renaming the file is testing123~1.MP3

===== script as follows =========
#!/usr/bin/perl
use File::Copy;
my $directories = 'd:\\test' ;
opendir (MYHANDLE , $directories) || die "Cant open directories :$! ";
  my @files = readdir MYHANDLE;
closedir MYHANDLE;
foreach (@files) {
    if (/(^141)(.+$)/){
       my $original = $_;
       s/(^141)(.+$)/testing123$2/;
       rename "$directories\\$original", "$directories\\$_";
    }
}
print @files;