in reply to 8 in a line...

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

[download]

In Section Seekers of Perl Wisdom