title: How can I extract specific columns in perl?
body: <pre><code>chr1    1   10  el1
  chr1    13  20  el2
  chr1    50  55  el3
  </code></pre>
  
  <p>I have this tab delimited file and I want to extract the second and third column using perl. How can I do that?</p>
  
  <p>I tried reading the file using file handler and storing it in a string, then converting the string to an array but it didn't get me anywhere.</p>
  
  <p>My attempt is:</p>
  
  <pre><code>while (defined($line=&lt;FILE_HANDLE&gt;)) {
      my @tf1;
      @tf1 = split(/\t/ , $line);
  }
  </code></pre>