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]