my @regexps = (
  qr/a/,
  qr/ab/,
  qr/abc/,
);

my $text = 'aababc';

my @matches;

foreach ($text) {  # Safe $_ = $text;
   foreach my $re (@regexps) {
      push(@matches, /($re)/g);
   }
}

print("$_\n")
   foreach @matches;