perl按照特定拆分文本

可以使用正则表达式来按照特定的规则拆分文本。下面是一个简单的例子，将一个字符串按照逗号和空格进行拆分：

my $str = "apple, banana,    orange";
my @tokens = split /,\s+/, $str;
print join("\n", @tokens);

输出：

apple
banana
orange

在这个例子中，`split`函数使用正则表达式`/,\s+/`作为分隔符，其中`,`表示逗号，`\s+`表示一个或多个空格。这个正则表达式的意思是：按照逗号和一个或多个空格进行拆分。`split`函数将字符串`$str`按照这个规则拆分，并将结果存储在数组`@tokens`中。最后，使用`join`函数将数组中的元素以换行符连接起来输出。

你可以根据自己的需要修改正则表达式的规则，来实现特定的文本拆分。