Select Code to Download

iphone
samsung s2
Apple iPhone 4s     test1

#!/usr/bin/perl  
use warnings; use strict;

...
    my ($col1,$col2,@columns) = split /\t/, $_;
    print "$col1\t$col2\n";
    }