while($line = <F>)
{
   for $hit ($line =~ /matchPattern/gi)
	{
	if($line =~ /(patternOne)/gi)
	{
    print "PAGE ->\t$name\ndata ->\t\t$1\nMATCHED - >\t$hit\n";
	push (@files, $name);
	$ct++;
	}
	elsif($line =~ /(patternTwo)/gi)
	{
    print "PAGE ->\t$name\ndata ->\t\t$1\nMATCHED - >\t$hit\n";
	push (@files, $name);
	$ct++
	}
	else
	{
	print "PAGE ->\t$name\ndata -> TEXT INFO HERE.\n";
	push (@files, $name);
	$ct++
	}
				
}
}
close F;