$byte_length = do { use bytes; length $str };