my $outer = join "|", qw/ hi bye /;
print grep { /$outer/ } qw/ bike hello hi /;