Shell Programming and Scripting

open (my $fhConditions, "<1.txt");
my $l = 100;
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);
my $a= $info[3]-$l;
my $match = substr($d,$a,$l);
print "$line\n" if $match =~m/ASHGFDF/;
}

aa qq ee 22
jjh cc qa 200
iiu qq qq 150

AAAAAAAAAAMKNNNJJJBHGVFTCDRSEXXZASEDFRFGTHYUJIKOLLLPPLLOKIKKKKKKKKKKKKKKKKKKKASHGFDFKKBBVGFCDRRTRRCXXSEDRRFDDXSEEWAZZSA..................

$ Stext="Hello World"

$ expr "$Stext" : '.*World'
11   #prints position of d from World

#For start position 
var="World"
expr 11 - ${#var}

open (my $fhConditions, "<1.txt");
my $l = 100;
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);
my $match = substr($d,$info[3],$l);
print "$line\n" if $match =~m/ASHGFDF/;
}

open (my $fhConditions, "<1.txt");
 my $l = 100; 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);
 my $a= $info[3]-$l; 
my $match = substr($d,$a,$l); 
print "$line\n" if $match =~m/ASHGFDF/;
 my $position=index($match,"ASHGFDF");
print $position+1; #prints the position where string is found
}