Help for this page

Select Code to Download


  1. or download this
    @companies = ("FOO,BAR");
  2. or download this
    @companies = ("FOO", "BAR");
# or
@companies = qw(FOO BAR);
  3. or download this
    # Use quotemeta if companies are not really
# foo and bar and contain metacharacters.
my $companies = join("|", map(quotemeta, qw(FOO BAR)));
print "$1\n" if $content =~ /($companies)/;