perl 正则表达式 处理中文解决思路

perl 正则表达式 处理中文
本人是perl菜鸟一枚，刚刚学习。今天遇到了一个问题 ，我想判断某一字符串中是否出现另一字符串，是中文的，比如“战争”、“战略”中都出现“战”，但是问题出现了，如下

$type="终结";
$pre="战";
if($type=~/$pre/)
{
print"\nYes!\n";
}
else
{
print"\nNo!\n";
}

运行的结果居然是“Yes”！！！！百思不得其解。。。求高手指教，3Q~

[解决办法]

Perl code

use Encode;
[解决办法]
探讨

本人是perl菜鸟一枚，刚刚学习。今天遇到了一个问题 ，我想判断某一字符串中是否出现另一字符串，是中文的，比如“战争”、“战略”中都出现“战”，但是问题出现了，如下

$type="终结";
$pre="战";
if($type=~/$pre/)
{
print"\nYes!\n";
}
else
{
print"\nNo!\n";
}

运行的结果居然是“Yes”！！！……

[解决办法]
用decode都转换成unicode再匹配。