# 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