Select Code to Download

open my $file, '<', "file1";

while ($file){
...
my ($one,$too,$tree,$fool,$flin) = split /\t+/, $_, 5; 
print $one, " ", $flin;
}