Select Code to Download

my @a = unpack '(a1)*', $buffer;

use strict;
use warnings;
...
pack and chr in map consumed 4.132 seconds
unpack '{a1)* consumed 2.527 seconds
substr for consumed 1.654 seconds