Select Code to Download

my @arr = unpack('A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8', $str);

# No longer wins but is still faster than '(A8)*'
my @arr = unpack((join '', ('A8' x ($strlen / 8))), $str);

#!/usr/bin/perl
use strict;
...
substr_map 82.3/s       115%        55%         --        -8%       -4
+5%
unpack     89.5/s       134%        69%         9%         --       -4
+0%
substr_for  149/s       291%       182%        81%        67%         
+--