$text =~ s/\[[^\]]*\]/ /g;