http://www.perlmonks.org?node_id=1179893


in reply to Feature Idea: qr//e (updated with solutions)

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