use Regexp::Trie;
my $rt = Regexp::Trie->new;
while(<FILE2>) {
  $rt->add($_);
}
$rt = $rt->regexp;