XS.xs 

if(ph > pt) {
    sv_catpvn(out, pt, (STRLEN)(ph - pt));
}

bytes_consumed = consume_utf8_bytes(ph, ubuf);