while( <F>){

	for $hit ( /matchPattern/gi) {

		print "PAGE ->\t$name\ndata ->",
			/(patternOne)/gi or /(patternTwo)/gi
			? "\t\t$1\nMATCHED - >\t$hit\n"
			: "TEXT INFO HERE.\n";
			
		push (@files, $name);
		$ct++
	}
}
close F;