$text =~ s/\[[^\]]*\]/ /g;
 
##</code><code>##

 
$text =~ s/^\s+//;
$text =~ s/\s+$//;

##</code><code>##

$text =~ s/\s+/ /m; #yes?