($chars, $string) = split /^(.{$n})/, $string, 1;