print "$_\n" for unpack '(A60)*', $str;