{ local $\ = "\n"; print for unpack '(A8)*', $str; } [download]
In reply to Re: 8 in a line... by moritz in thread 8 in a line... by heidi