$ perl5008009 -le'
   $re = qr/foo$/;
   print $re;
   local $* = 1;
   print "foo\nbar\n" =~ /$re/ ?1:0
'
(?-xism:foo$)
1