T : String := S (1 .. 5);
char *t=(char *)calloc(6,sizeof(char));
strncpy(t,s,5);
IDENTIFICATION DIVISION.
PROGRAM-ID. prefix 5.
PROCEDURE DIVISION.
MOVE s(1:5) TO t
STOP RUN.
string t = s.Substring(0, 5);
var t = s.substring(0, 5);
t = String.slice(s, 0, 5)
[A, B, C, D, E | _] = S,
T = [A, B, C, D, E].
T = string:sub_string(S, 1, 5),
T = string:substr(S, 1, 5).
character(len=5) :: t
t = s(1:5)
t := string([]rune(s)[:5])
t :: T.Text
t = T.take 5 s
var t = s.substring(0,5);
String t = s.substring(0,5);
(setf *t* (subseq s 0 5))
$t = mb_substr($s, 0, 5, 'UTF-8');
t = s[0, 5]
# OR
t = s.slice(0, 5)
t = s.slice(0...5)
let t = s[..5].to_string();
val s = "somestring"
val t = s.take(5)