Hi all I am quite new to perl, I am writing a script to extract multiple columns from a tab delimited text files that is the output of a previous script. The out put files look like this:

column1 column2 column3 .... column n

111111 222222 333333 ..... nnnnnnn

121212 212121 313131 ...... nnnnnnn

131313 232323 343434 ...... nnnnnnn

I would like to extract the second and the third column and put it on a new file, but with the code I wrote it enters the file but read and catch only the first number in column2. I don't know why it wan't iterate through the lines. Need help i am going crazy! :-) So far I had the same problem with another file where I have to subtract the values in column1 from columns 2 and it worked but when i tryied to use the same code to extract instead of subtracting catch only the first element of such column. thank you in advance for your help. code i am using is below:

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;

In reply to multicolumn extraction by Anto_ch

Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post; it's "PerlMonks-approved HTML":