在Perl中，可以使用split函数将文本赋值给列表。split函数用于将字符串分割为多个元素，并将这些元素存储在列表中。
下面是一个示例代码：
my $text = "Hello, world!";
my @list = split(" ", $text); # 使用空格作为分隔符
foreach my $element (@list) {
print "$element\n";
}
这段代码将字符串"Hello, world!"分割为两个元素，并将它们存储在列表@list中。然后，使用foreach循环遍历列表，并打印每个元素。
输出结果为：
Hello,
world!
注意，split函数的第一个参数是用于分割字符串的分隔符。在上面的示例中，我们使用空格作为分隔符。如果不提供分隔符，则默认使用空白字符作为分隔符。
