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

##</code><code>##

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