显示汉字标量和汉字文件结果不同，why?

显示汉字标量和汉字文件结果不同，why?
曾看到一位大虾给出了下面的脚本来显示汉字：
#!/usr/bin/perl
$d="我是汉字 asdf";
$d=~ s/([^\x80-\xFF][^\x80-\xFF]*)//g;
print $d;
经运行，完全没有问题！我稍微改了一下，想用这个方法来显示汉语文件内容，脚本如下：
#!c:\perl\bin\perl -w

open (FH,"ec_1.txt")|| die $!;
{
local $/=undef;
$/= <FH>;
$/=~ s/([^\x80-\xFF][^\x80-\xFF]*)//g;
close (FH);
print $/;
}
但是得到的仍然是乱码，不知道是为什么？请大虾指点！