在Perl中，可以使用<FILEHANDLE>的方式来读取文件的每一行内容。具体步骤如下：

打开文件并将文件句柄赋值给一个变量：

open my $fh, '<', 'filename.txt' or die "Cannot open file: $!";

使用while循环读取文件的每一行内容直到文件末尾：

while (my $line = <$fh>) {# 在这里处理每一行的内容，例如打印到屏幕print $line;}

关闭文件句柄：

close $fh;

通过以上步骤，可以逐行读取文件的内容并进行相应的处理。