push @posns, pos($screen) - length $1  while $screen =~ /([^X]+)/g;