Re: Getting characters from regex pattern

[ikegami]

Maybe you don't actually need regular expressions?

my @lists = (
   [qw( Capri Class )],
   # ...
);

OUTER:
for my $list (@lists) {
   for my $word (@$list) {
      next if index($s, $word) < 0;
      print("$word\n");
      next OUTER;  # or last OUTER;
   }
}