($chars, $string) = unpack "a$n a*", $string;