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