note
choroba
The regexes aren't the same:
<c>
$ perl -wE 'say for qr/(a|b|x)/i, qr{ /(a|b|x)/}i'
(?^ui:(a|b|x))
(?^ui: /(a|b|x)/)
</c><P>
Moreover, <c>$_ = /.../</c> not only matches against $_, but also changes its content (it sets it to the result of the match).<P>
Also note that <c>my $_</c> is invalid since 5.24.<P>
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-832495">
<c>map{substr$_->[0],$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]</c>
</div></div><!-- Wiki2Monks {"version":1.16} -->
11119607
11119607