perl 正则表达式 处理中文

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

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

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