$ perl -E '
> $line = q{abcdefghijklmno};
> say $line;
> say substr $line, 0, 3;
> say substr $line, 5, 6;
> say substr $line, 13;'
abcdefghijklmno
abc
fghijk
no
$