Select Code to Download

use strict;
use warnings;
...

#Word followed by num
my $DATA_REGEX=qr(^\w+\s+\d+);

while (<DATA>) {
  chomp;            #strip new line assuming $\ = newline
...
True 3200768 A8 EPS318080 9.346 17.771 GG 0.97
True 3200768 A9 EPS316124 9.205 17.201 GG 0.98
True 3200768 A10 EPS318081 9.729 17.934 GG 1.00

   my @aFields = split(/[\s:;]+/, $line);
   my $rscode = $aFields[1];   #assignment to document field use
...
   my $sRsNo = $aRsFields[0];         # 1st array element
   my $s619Thingy = $aRsFields[1];    # 2nd array element
   my $s291Thingy = $aRsFields[-1];   # last array element