my $rxExtractNameData = qr
   {(?x)
       (
           \s+
           \w+
           \s+
           \([A-Z]\)
           \s+
           \(\d*%\)
           \s+
           \d+\s+\+\s+[+-]?\d+
       )
   };

##</code><code>##

...
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;
    ...
}
...