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