@files;
$name = 1;

sub dothis {
    ($name, $m, $hit) = @_;
    print "PAGE ->\t$name\ndata ->" , $m ? "\t\t$m\nMATCHED - >\t$hit\
+n" : " TEXT INFO HERE.\n";
    return $name;
}

while ($line = <DATA>){
       push @files, map {          
        $line =~ /(patternOne)/i || $line =~ /(patternTwo)/i ? dothis(
+$name, $1, $_) : dothis($name);
    } ($line =~ /matchPattern/gi);
}

print "\nfiles: @files\nct: ", scalar @files, "\n";   # for debugging 
+purpose


__DATA__
matchPattern matchPattern patternTwo matchPattern
la la la patternTwo matchPattern
blablablamatchPattern
huh? patternOne
patternOnepatternOnepatternOnematchPattern
patternOne matchPattern
oh dear patternTwo
la la la patternTwo matchPattern
here we go again matchPattern
done yet? machPattrn
over over over
[download]