my $re = do { local $" = '|'; qr/^@{[map {quotemeta} @list]}$/; };