print join ' ', unpack '(a10)*', "$_\n" for unpack '(a50)*', $str;