use warnings;
use strict;

my $fileText = <<TEXT;
Dear monks,

I'm trying to search for several regexes in some long files. To speed things up,
I tried first checking a combined regex, to see if any of them matches the line.
This seems to speed things up, at least when the regexes are just plain words.
But: If I try input regexes which are anchored ("^word"), then suddenly it's
much slower! Is there some weirdness with alternations and anchors? Or did I
make some obvious mistake?
(I could rewrite ^aaa|^bbb|^ccc as ^(aaa|bbb|ccc), but it might be that only
some of the inputs are anchored.) Like so:
TEXT

my @argList = qw(regexes that ^I);
my $comb = join ('|', @argList);

print ">>> OP version\n";
open my $infile, "<", \$fileText;

while (my $line = <$infile>) {
  next if $line !~ $comb;

  for my $target(@argList) {
    next if $line !~ $target;
        print "Matched '$target' in: $line";
  }
}

print "\n>>> Grandfather version\n";
open $infile, "<", \$fileText;

while (my $line = <$infile>) {
  print "Matched '$1' in: $line" while $line =~ /($comb)/g;
}