PERL如何将字符串分组不在同一行中

# 定义要分组的字符串
my $string = "apple,banana,orange,grape";

# 使用split命令和正则表达式将字符串以逗号分隔，并将结果存储在数组中
my @array = split /,/, $string;

# 使用for循环遍历数组，并将每个元素添加到新的字符串中，用逗号分隔
for my $element (@array) {
    push @new_array, $element;
}

# 将新数组转换为字符串，并用逗号分隔各个部分
my $new_string = join ",", @new_array;

# 输出结果
print $new_string;

apple,banana,orange,grape