Select Code to Download

my $str = "abcdefgh12345678" x 20;
my $strlen = length $str;
...
  my @arr = unpack('(A8)*', $str);
}
});

               Rate   
split_pos    3203/s
...
substr_map   8889/s
unpack      11348/s
substr_loop 15097/s