*strlen = $use_unicode
    ? sub { $_[0]->length() }
    : sub { length($_[0]) };