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