use warnings;

my @reglist = ( qr/food?/, qr/b[a4]rd?/, qr/baz(?:o+ka)?/ );
my $giant = join( ")|(", @reglist );

foreach (qw(foobarbaz football barcode none bazoooooka)) {
  my @hits = /($giant)/;
  my @which = map { defined $hits[$_] ? $_ : "" } 0..@hits-1;
  print "$_: @which\n";
}