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


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

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

No? Plus, it's eval'ed "before parsing a regex", while s///e is not about it at all.