$newtoken = "";
        while ("$token" ne "$newtoken") {
            $newtoken = "$token";
            $token =~ s@((?:<[^>]*>)*) +((?:<[^>]*>)*)@\1\2@g;
        }

##</code><code>##

        $newtoken = "";
        while ("$token" ne "$newtoken") {
            $newtoken = "$token";
            $token =~ s@((?:<[^>]*>).*) +((?:<[^>]*>).*)@\1\2@g;
        }