<>;$s=<>;for($p=-1;;){$p=index($s,'xo',$p+1);$p<0&&last;push @a,$p+2;$-++;}print $-,$/,join(' ',@a),$/