sub limit_bytes {
    my ($str, $max_bytes) = @_;

    utf8::upgrade $str;
    use bytes;

    if (length($str) > $max_bytes) {
        substr($str, $max_bytes+1) = '';
        $str =~ s/(?:[\xC0-\xFF]?[\x80-\xBF]+|.)\z//;
    }

    return $str;
}