in reply to Searching for Numerous Values

If I understand correctly, you want to quickly eliminate the rows in which you are not interested? 
while (<$fh>) {
   chomp;
   my ($name) = /\|team_(triumph|victory)\z/
      or next;

   ...
}

[download]

The above skips lines that aren't for interesting teams, and places the name of the team ('triumph' or 'victory') in $name.

Replies are listed 'Best First'.
Re^2: Searching for Numerous Values
by ikegami (Patriarch) on Aug 01, 2007 at 17:06 UTC
    No, I guess I misunderstood. 
    my @teams = ( "triumph", "victory", "intrepid" );

my $re = join '|',
         map quotemeta,
         @teams;

while (<$fh>) {
   chomp;
   my ($name) = /\|team_($re)\z/
      or next;

   ...
}

    [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom