while ( $line = <TR_INFILE> ) {
    if ( index( $line, 'R' ) == 0 ) {
        ## removed /g as it's unnecessary
        $line =~ s/^Results://;
        
        print OUTFILE3 "$line";
        
        ## the ' ' is special, see. perldoc -f split
        my @chunks = split ' ', $line;
        push @trstart, shift @chunks;
        push @trend,   shift @chunks;
        push @period,  shift @chunks;
        push @copy,    shift @chunks;
        push @consize, shift @chunks;
        push @matches, shift @chunks;
        push @indels,  shift @chunks;
        push @score,   shift @chunks;
        push @numa,    shift @chunks;
        push @numc,    shift @chunks;
        push @numg,    shift @chunks;
        push @numt,    shift @chunks;
        push @entropy, shift @chunks;
        $TRID++;
    } elsif ( index($line, 'S') == 0 ) {
        $line =~ s/^Sequence:\s*//;
        push @TR_Accession, $line;
        $SEQID++;
    }   
}