my $re = "\A(?:"
         . join("|", $foo, $bar, $baz)
         . ")\Z";
  ...
  if ( /$re/o ) { ... }