@x=split/(?:ooo)?/,<>;for$p(0..1<<$#x){print$p&(1<<($#x-$_-1))?$x[$_]:''for 0..$#x;print'
'}