Help for this page

Select Code to Download

Select or download this

perl -wMstrict -le
"my $c = qr{ (?> -- [^\n]* (?:\n|\z)) }xms;
...
 print qq(match at positions $-[1]-), $+[1]-1
   if $str =~ m{ ($c* ^ x) }xms;
"