my $byte = substr $buffer, 0, 1, '';