my @patterns = (qr/(patternOne)/, qr/(patternTwo)/);
my $match;
print "PAGE ->\t$name\ndata ->";
for my $pat (@patterns) {
 if ($line =~ $pat and not $match++) {
  print "\t\t$1\nMATCHED - >\t$hit\n";
  push (@files, $name);
  $ct++;
  last;
 }
}
$print " TEXT INFO HERE.\n" if not $match;