http://qs321.pair.com?node_id=1179893


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

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

In Section Seekers of Perl Wisdom