如何在Perl中将字符串拆分为两个字符的块？

在Perl中，您可以使用正则表达式和=~操作符将字符串拆分为两个字符的块。以下是一个示例：

my $str = "Hello, World!";
my @chunks;

if ($str =~ /(..)/g) {
    @chunks = $1;
}

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

在这个示例中，我们首先定义了一个字符串$str，然后使用正则表达式(..)来匹配两个字符的块。=~操作符用于将正则表达式应用于字符串，/g标志表示全局匹配，以找到所有匹配项。

当正则表达式匹配时，$1变量将包含匹配的字符串。我们将$1添加到@chunks数组中，以便在循环结束时保存所有匹配项。最后，我们使用join函数将数组元素连接成一个字符串并打印出来。

这个方法可以处理任何长度的字符串，并将其拆分为两个字符的块。