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