my $re1=qr/foo$/;
print $re1, "\n";
print "foo\\nbar\\n =~ \/$re1\/ \t";
print "foo\nbar\n" =~ /$re1/ ?"true":"false"; print "\n";
print "foo\\nbar\\n =~ \/$re1\/m \t";
print "foo\nbar\n" =~ /$re1/m ?"true":"false"; print "\n";
my $re2=qr/foo$/m;
print $re2, "\n";
print "foo\\nbar\\n =~ \/$re2\/ \t";
print "foo\nbar\n" =~ /$re2/ ?"true":"false"; print "\n";
print "foo\\nbar\\n =~ \/$re2\/m \t";
print "foo\nbar\n" =~ /$re2/m ?"true":"false"; print "\n";
__END__
(?^:foo$)
foo\nbar\n =~ /(?^:foo$)/       false
foo\nbar\n =~ /(?^:foo$)/m      false
(?^m:foo$)
foo\nbar\n =~ /(?^m:foo$)/      true
foo\nbar\n =~ /(?^m:foo$)/m     true