{
   local $\ = "\n";
   print for unpack '(A8)*', $str;
}