Select Code to Download

sample of company data: COMPANY-A, COMPANY-B, COMPANY-C, etc.

while (<$file>) {
      my @f = split '\s+', $_;   
...
              }
#        }
}