use strict;
use warnings;


open(APRI2, "path to file.txt");
my@out_runseq = <APRI2>;
close APRI2;
print @out_runseq, "\n";


foreach my$lines (@out_runseq) {
                                
                                                                
                                my@splitlines = split("\t", $lines);
                                my(@motif_position) = ( );
                                
                                
                                if (my$splitlines = $splitlines[7]) {
                                   my$position1 = $splitlines[7];
                                 
                                    print ("$position1\t");
                                    push(@motif_position, $position1);
                                }
                                
                                
}

exit;