Select Code to Download

perl -debug
 DB<1> $string= "...foo\nbar...";
 DB<2> x $string =~ /(foo$bar)/m;
 DB<3> x $string =~ /(foo$^bar)/m;
 DB<4> x $string =~ /( foo$ ^bar )/mx;