LWP::Simple获取网页后匹配中文的问题

LWP::Simple获取网页后匹配中文的问题

我用LWP::Simple模块get某网页的内容,查看到字符集编码为charset=gb2312
网页get过来后,对其分析,如网页中有这么一句“名字:张三,Tom.”,我要提取出“张三,Tom”,
所以我试了m/名字:(.*)\./,这样无法匹配上,于是我用Encode模块:

[Copy to clipboard] [ - ]
CODE:
use Encode;

$n = decode('GB2312', '名字:');
$line =~ m/$n(.*)\./;
$name = $1;

但是这样还是不能匹配上,请高手指教,谢谢!
$str = "名字:张三,Tom.";
$str =~ m/名字:\s*(.*?)\./;
print $1;   # 张三,Tom.