Select Code to Download

my $rxExtractNameData = qr
   {(?x)
...
           \d+\s+\+\s+[+-]?\d+
       )
   };

...
while( <$file2FH> )
...
    ...
}
...