在Perl中，可以使用open函数打开一个文件，并使用<操作符来读取文件的每一行。下面是一个示例代码：
open(my $file, '<', 'file.txt') or die "Could not open file: $!";
while (my $line = <$file>) {
chomp $line; # 去除行尾的换行符
# 处理每一行的数据
print $line;
}
close($file);
上述代码中，open函数将文件file.txt打开并赋值给变量$file。然后，使用<$file>来读取文件的每一行，并将其赋值给变量$line。在while循环中，可以处理每一行的数据。chomp函数用于去除每一行的行尾换行符。最后，记得使用close函数关闭文件。
