$ perl -e 'print "match\n" if "foo\nbar" =~ m/bar/;' match