[perl #100232] Implementation details leak through in variable interpolation into regexes

[via RT]

# New Ticket Created by  Moritz Lenz 
# Please include the string:  [perl #100232]
# in the subject line of all future correspondence about this issue. 
# <URL: https://rt.perl.org:443/rt3/Ticket/Display.html?id=100232 >


08:19 < moritz> nom: my $x = '1}; say "pwnd"; #'; 'a' ~~ /<$x>/
08:19 <+p6eval> nom 317f89: OUTPUT«pwnd␤pwnd␤»
08:19 < moritz> ouch
08:20 < jnthn> ...ouch.
08:23  * moritz submits rakudobug