$bytes = do {use bytes; length($scalar)} # length in bytes
# bytes may be != chars for unicode strings