$line = "this is a test [[ this is a test ]
]";
$line =~ s/\[\[[^\]]*\]\s*\]/***FOO***/sg;
print "Line: '$line'\n";

##</code><code>##

Line: 'this is a test ***FOO***'