如何使用Perl一次阅读段落？

#!/usr/bin/perl

use strict;
use warnings;

# 输入段落
my $paragraph = "这是一个示例段落。在这个段落中，我们将演示如何使用Perl一次阅读段落。";

# 使用正则表达式分割段落
my @sentences = split /。/, $paragraph;

# 遍历句子并输出
foreach my $sentence (@sentences) {
    print "$sentence\n";
}