Help for this page

Select Code to Download


  1. or download this
    for my $outer ( qr/hi/, qr/bye/ ) {
    print grep { /$outer/ } qw/ bike hello hi /
}
  2. or download this
    my $outer = join "|", qw/ hi bye /;
print grep { /$outer/ } qw/ bike hello hi /;
  3. or download this
    $outer = join "|", qw/ hi bye /;
/($outer)/ and print $1
    for qw/ bike hello-hi hi-ho /;