print substr $string, 0, $n;