$line =~ s/\[[^]]+\]//g;
   $line =~ s/\s+(?=\S)/ /g;