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

##</code><code>##

$line =~ s/\s\s/ /g;

##</code><code>##

$line =~ s/\s{2,}/ /g;