#!/usr/bin/perl -pi.bak
s/((.)\2*)/
        ($2 eq "\x10" || length($1) > 3)
            ? "\x10$2" . chr(length($1))
            : $1
    /eg;