Select Code to Download

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

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