$ perl -wE'
my $buffer = "abcdefghijklmno";
read STDIN, $buffer, 3, 5;
say $buffer;
'
1234567890
abcde123