# "pack" in an untyped language.
my $packed = pack('c N c/a*', $c, $i, $s);

# "unpack" in an untyped language.
my ($c, $i, $s) = unpack('c N c/a*', $packed);