$ perl5008009 -le'
   $re = qr/foo$/;
   print $re;
   print "foo\nbar\n" =~ /$re/m ?1:0
'
(?-xism:foo$)
1               # Matched as if /m was on for the subpattern.