#!perl -ln0
$:='(.{9}|)\Kw|w(?=(.{9}|)';
map{$i="@-"+11;{map{1while
s/W$:W)/W/s;/ \U$: )/s||print($i=~s/./$& /r)+next}"$`W$'"while/w/g}}"$`x$'"while/ /g