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