为什么我的文件内容/用户输入不匹配？（缺少冠军规范）

Question

我正在读取文件/，STDIN并在寻找特定值：

use strict;

use warnings;

my $find = 'def';    

while (<DATA>) {

    if ($_ eq $find) {

        print "Found: $_\n"; # Never reached!

    }

}

__DATA__

abc

def

xyz

为什么条件永远不匹配？