($chars, $string) = $string =~ /^(.{$n})(.*)$/s;