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