我如何声明Perl分裂的正则表达式？

在Perl中，可以使用正则表达式来声明分裂操作。以下是一个简单的示例，说明如何使用正则表达式来分裂字符串：

#!/usr/bin/perl
use strict;
use warnings;

my $string = "This is a sample string";
my @array = split(/ /, $string);

print join("\n", @array);

在这个示例中，我们使用了split函数，它接受两个参数：一个正则表达式和一个字符串。正则表达式/ /表示我们要使用空格来分裂字符串。split函数将返回一个包含分裂后的字符串的数组。

在这个例子中，我们将字符串"This is a sample string"分裂成了一个数组，其中包含了以下元素："This", "is", "a", "sample", 和 "string"。

您可以根据需要修改正则表达式来分裂不同的字符串。例如，如果您想使用逗号和空格来分裂字符串，可以将正则表达式更改为/, */。