...
while( <$file2FH> )
{
    # reject line unless it has name data
    next unless m{^(.*?)$rxExtractNameData};
    print $1; # preamble captured in $1
    # global match to extract to an array
    my @dataGroups = m{$rxExtractNameData}g;
    ...
}
...