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