Select Code to Download

>perl -wMstrict -le
"my $s = qq{\n\n};
...
 print $s =~ /(\n$\n)/m ? qq{:$1:} : 'no match';
"
no match

>perl -wMstrict -le
"my $s = qq{\n\n};
...
:

:

string=<a\n>
   no modifier: regex=/^a$\n/
...
   [ ... ]
   m modifier (multi line mode): regex=/^a$\n/m
     match => $ matches only boundary, \n matches newline

>perl -wMstrict -le
"my $s = qq{a\n};
...
"
NO match
NO match

>perl -wMstrict -le
"my $s = qq{a\n};
...
"
   match
   match