use strict;
use warnings;
open (my $fhConditions, "<1.txt"); 
my $l = 25;
open(my $read, "<2.txt");
my @e = <$read>;
my $d = join('', @e );
$d =~ s/\s+//g;
while (my $line = <$fhConditions>) {
chomp $line;
my @info = split("\t" , $line);
if ($info[2] eq "+")
{
my $match = substr($d,$info[4],$l);
print "y" if $match =~m/AAGCTT/;
print "n" if $match !~m/AAGCTT/;
}
if ($info[2] eq "-")
{
my $a= $info[4]-$l;
my $match = substr($d,$a,$l);
print "y" if $match =~m/AAGCTT/;
print "n" if $match !~m/AAGCTT/;
}
}