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