$line =~ s/\[\[[^\]]*\]\s*\]/ /msg;