( $chars, $string ) = unpack "a$n a@{[length($string)-$n]}", $string;