在Perl中，可以使用open函数来打开并读取文本文件。以下是一个简单的例子，演示如何使用Perl读取文本文件中的数据：
# 打开文件
my $filename = 'example.txt';
open(my $fh, '<', $filename) or die "无法打开文件 '$filename' $!";
# 读取文件内容
while (my $line = <$fh>) {
chomp $line; # 去除行尾的换行符
print "$line\n"; # 输出每一行的内容
}
# 关闭文件
close($fh);
在上面的例子中，首先使用open函数打开名为example.txt的文件，指定打开方式为只读模式'<。然后使用一个while循环逐行读取文件内容，并输出每一行的数据。最后使用close函数关闭文件句柄。
通过类似的方法，可以读取文本文件中的数据，并对其进行进一步处理和分析。
