#! usr/bin/perl
use strict;
use warnings;
use Lingua::EN::Sentence qw( get_sentences add_acronyms );

# opening the input lexicons
open (GENE,"Gene.txt") || die "Cannot open Gene.txt !!";
open (TARGET, "Target.txt") || die " Cannot open Target.txt !!";

my $target;
my $gene;

# opening fulltext and sentence breaking
open (IF, "Input.txt") || die " Cannot open Fulltext !!";
my $text = <IF>;
my $sentences=get_sentences($text);

close (IF);    
        

# opening output file

open (OF, ">results.txt");

# Parsing Text
my $verbs = "localized|held|located in|localization|translocated to|targets|reaches|exported|export";
while ($gene = <GENE>) {

chomp $gene;
	seek (TARGET,0,0);
	while ($target = <TARGET>) {
	chomp $target;

			foreach my $sentence (@$sentences) {
				if ($sentence =~ /($gene).+($verbs).+($target)/ig) {
				print OF $1."\t".$2."\t".$3."\t\t".$sentence."\n";
				}
			}
	
	}
} 
close (OF);
close (GENE);
close (TARGET);