Select Code to Download

   foreach my $line (@flab) {
      if ($line =~ /[^\t]*\Q$sTab[1]\E\t([^\t]+)/) {
         print RESULT "$sTab[0]\t$sTab[1]\t$2\n";
      }
   }

while (my $sLine = <LONG_LIST>) {
   chomp $sLine;
...
      print RESULT "$company\t$name\t$flab{$name}{TITLE}\n";
   }
}

my $tmp = join("|", keys %flab);
my $regex = qr/(?:$tmp)/;
...
      print RESULT "$company\t$name\t$flab{$name}\n";
   }
}