s/$1//g if ($line =~ m/.*(\[.*\])\s.*/);
   s/$1/ /g if ($line =~ m/^\w.*(\s\s).*/);