# 1.
my $any   = qr/one|two|three/;

# 2.
my $one   = qr/one/;
my $two   = qr/two/;
my $three = qr/three/;
my $any   = qr/$one|$two|$three/;

# 3.
my @pats  = qr/one/, qr/two/, qr/three/;
my $any   = qr/$pat[0]|$pat[1]|$pat[2]/; # ick

##</code><code>##

my @pats  = map qr/$_/, @some_input;
my $any   = ??? # no resort to explicit indices

##</code><code>##

my $joined = join ")|(?:", @some_input;
my $any    = qr/(?:$joined)/;