Select Code to Download

my @line = split(/\t+?/, $row);
my $part_number = $line[0];
...
    print   $company2_file "$part_number\t$part_desc\t
              $company2_price\n";            
}