>perl -wMstrict -le
"print qq{perl version $]};
 ;;
 my $opener = qr{ \{\{ }xms;
 my $closer = qr{ \]\] }xms;
 my $body   = qr{ (?! $opener) (?! $closer) . }xms;
 ;;
 use re 'eval';
 our $regex = qr{
   $opener
   (?: (?> $body+) | (??{ $regex }) )*
   $closer
   }xms;
 ;;
 my $s =
   'xxx {{ foo {{ bar ]] baz [OK] ]] [NO] yyy {{ fee ]] zzz';
 ;;
 print qq{'$1'} while $s =~ m{ ($regex) }xmsg;
"
perl version 5.008009
'{{ foo {{ bar ]] baz [OK] ]]'
'{{ fee ]]'