在某些操作系统中，在模式匹配（m //）中使用未初始化的值

Question

我收到以下错误：

“在模式匹配中使用未初始化的值（m //）”关于代码：

opendir DBASE, $dir or die "Problem: $!\n";     

while (readdir (DBASE)) {
    if (/^\w*(?=\.com)/) {
        push @temp, $_;
    }
}

在Suse Linux Enterprise Server或IBM AIX（perl v5.8.8）中使用时。

但是当我在Windows和FreeBSD（perl v5.18.2）上使用它时，它的效果非常好。

我已经阅读了很多内容而且没有任何效果，我现在只是不忠实。

注意：变量$ dir和@temp之前已声明。

提前致谢！