Help for this page

Select Code to Download

Select or download this

  while  ($test =~ m%\Q[ref]\E(?:(?!\Q[/ref]\E).)*\Q[/ref]\E%gix) {
        print "FOO, $1, $2 and $3 \n";
    }

Select or download this

  while  ($test =~ m%\Q[ref]\E[^[]*(?:\[(?!\Q/ref]\E)[^[]*)*\Q[/ref]\E
+%gix) {
        print "FOO, $1, $2 and $3 \n";
    }