substr $cc, 0, $var;