my ($regex) = map qr/$_/, join '|', map {quotemeta} qw/. | %/;