my( $rx ) = map qr/($_)/, join '|', @alternative;

##</code><code>##

my( $rx ) = do { local $" = '|'; qr/(@alternative)/ };