#! /usr/bin/perl -w

$re=qr/foo$/;
print $re; print "\n";
print "foo\\nbar\\n =~ \/$re\/s \t";
print "foo\nbar\n" =~ /$re/s ?"true":"false"; print "\n";
print "foo\\nbar\\n =~ \/$re\/m \t";
print "foo\nbar\n" =~ /$re/m ?"true":"false"; print "\n";
#
print "fred\\nfoo\\nbar\\n =~ \/$re\/s \t";
print "fred\nfoo\nbar\n" =~ /$re/s ?"true":"false"; print "\n";
print "fred\\nfoo\\nbar\\n =~ \/$re\/m \t";
print "fred\nfoo\nbar\n" =~ /$re/m ?"true":"false"; print "\n";
#
print "foo =~ \/$re\/s \t";
print "foo" =~ /$re/s ?"true":"false"; print "\n";
print "foo =~ \/$re\/m \t";
print "foo" =~ /$re/m ?"true":"false"; print "\n";
print "\\nfoo =~ \/$re\/s \t";
print "\nfoo" =~ /$re/s ?"true":"false"; print "\n";
print "\\nfoo =~ \/$re\/m \t";
print "\nfoo" =~ /$re/m ?"true":"false"; print "\n";
print "foobar =~ \/$re\/s \t";
print "foobar" =~ /$re/s ?"true":"false"; print "\n";
print "foobar =~ \/$re\/m \t";
print "foobar" =~ /$re/m ?"true":"false"; print "\n";
print "bar\\nfoo\\n =~ \/$re\/s \t";
print "bar\nfoo\n" =~ /$re/s ?"true":"false"; print "\n";
print "bar\\nfoo =~ \/$re\/m \t";
print "bar\nfoo" =~ /$re/m ?"true":"false"; print "\n";
print "bar\\nfoo\\n =~ \/$re\/ \t";
print "bar\nfoo\n" =~ /$re/ ?"true":"false"; print "\n";
print "foo\\nbar\\n =~ \/$re\/ \t";
print "foo\nbar\n" =~ /$re/ ?"true":"false"; print "\n";
print "fred\\nfoo\\nbar\\n =~ \/$re\/ \t";
print "fred\nfoo\nbar\n" =~ /$re/ ?"true":"false"; print "\n";
print "fred\\nfoo\\nbar\\n =~ \/$re\/ \t";
print "fred\nfoo\nbar\n" =~ /$re/ ?"true":"false"; print "\n";
print "foo =~ \/$re\/ \t";
print "foo" =~ /$re/ ?"true":"false"; print "\n";
print "foobar =~ \/$re\/ \t";
print "foobar" =~ /$re/ ?"true":"false"; print "\n";
print "\\nfoo =~ \/$re\/ \t";
print "\nfoo" =~ /$re/ ?"true":"false"; print "\n";