$ perl5010 -le'
   $re = qr/foo$/;
   print $re;
   print "foo\nbar\n" =~ /$re/m ?1:0
'
(?-xism:foo$)   # -m: Turn /m off.
0