通过以Group开头且后面没有member的行标识新组的开头，并分别存储每个组的行

use warnings;
use strict;
use feature 'say';
use Data::Dump qw(dd);  # or use core Data::Dumper

my @groups;

while (<>) { 
    chomp;

    if (/^\s*Group\s+(?!member)/) { 
        # Start collecting lines for a new group
        push @groups, [$_];
    }   
    else { 
        push @{$groups[-1]}, $_; 
    }   
}
    
dd \@groups;

菱形运算符<>逐行读取文件，文件名在命令行中给出，因此将其用作perl progname filename（或progname filename，如果它是可执行的）。这在我的测试中表现得很好。
匿名数组与组的行存储为数组的元素在这里。将它们存储在散列中也是有意义的，也许密钥是组的名称。这应该是对上述内容的简单修改。
在上面的内容中，我忘记了您希望存储来自组标题以外的行的特定信息。编辑得到的数组很容易，但这也带来了另一种更简单的方法：先拆开生产线，然后再测试零件

while (<>) { 
    chomp;

    my ($first_word, $rest) = split ' ', $_, 2;

    if ($first_word eq 'Group' and $rest !~ /^member/) { 
        # Start collecting lines for a new group
        push @groups, [$_];
    }   
    elsif ($first_word ne 'Group') {
        push @{$groups[-1]}, "$first_word $rest";
    }
    else {
        push @{$groups[-1]}, $rest;
    }   
}

在这里，这一行只被分成两部分（split中的2），所以在if条件下，我们需要一个正则表达式来检查它是否以member * 开始 *-我这样做是为了至少为字符串的“其余部分”保留空格。
如果空格不重要，则将行拆分为

my ($first, $second, @rest) = split;

if ($first eq 'Group' and $second ne 'member') {
    ...
}
elsif ($first_word ne 'Group') {
    push @{$groups[-1]}, join ' ', $first, $second, @rest;
}
else {
    push @{$groups[-1]}, join ' ', $second, @rest;
}