$a=<>;
while ($a=~s/(\s?)(\w{10})(\w)/$1$2 $3/){}
$a=~s/((\w+\s){5})/$1\n/g;
print $a,"\n";