中文字符串匹配问题

首先看如下代码：

$s="图盟科技 mapabc";
$t="济";

if($s=~/$t/)
...{
    print "good ";
    }
else
...{
    print "bad ";
}

程序运行结果：
good
分析：由于“图”的右半边与“盟”的左半边合成了“济”字，故匹配成功。但在中文处理中这种情况是不合理的。
解决方案：引入 Encode 包。

use Encode;

$s="图盟科技 mapabc";
$t="济";

    $length=length($t);# 2

$s = Encode::decode('GB2312',$s);
$t = Encode::decode('GB2312',$t);


   $length=length($t);#1

if($s=~/$t/)
...{
    print "good ";
}
else
...{
    print "bad ";
}

现在的结果为：
    bad