win7下无法在正则表达式中使用中文字符匹配（已经解决））

justu78

我在win7下用perl遍历一个目录，其中有些子目录带中文命，比如“测试”，程序发现一个这样的目录，就print一下，但是我试了很久发现不行，使用encode/decode编码成gb2312也不行，下面是代码框架（没加encode/decode,我试了很久都不行，就没加了），如果我直接print $dir能看到屏幕有中文正常输出，但是在代码里想匹配就不行，有高手能指点一下吗？多谢：
use File::Find;
use Cwd;
use Encode qw(encode decode);
use utf8;
$\="\n";
$,=" ";
$maindir=getcwd;
find(\&wanted, $maindir);
sub wanted {
my($dir,$str);
$dir=$File::Find::dir;print $dir; #这里可以看到屏幕上有正常的中文输出
$str='测试';
if($dir=~/$str/){
           print $dir; #无任何输出，匹配失败，即使用decode/encode来转换$str和$dir也不行
}
}

试了半天你，还是解决了，$str=encode('gb2312','测试');